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Op Operand 


TPLAB 


•label fields 3-10' 
'label fields 3-13' 



'label fields 3-10' 

This is a 49-byte character string, included within 
apostrophes (8-5 punch), identical to positions 
5-53 of the tape file label. These fields can be 
included in one line. 

•label fields 3-13' 

This is a 69-byte character string, included within 
apostrophes (8-5 punch), identical to positions 
5-73 of the tape file label. These fields are too 
to be included on a single line. The character 
string must extend into column 71, a continuation 
character (any character) is present in column 72, 
and the character string is completed on the next 
line. The continuation line starts in column 16. 



DLBL -- DASD Label Information Command 

The DLBL command replaces the VOL and DLAB combination used 
in earlier systems. It contains file label information for 
DASD label checking and creation. The DLBL command must 
not be followed by the XTENT command. The current system 
will, however, continue to accept the VOL, DLAB and XTENT 
combination. The DLBL command has the following format: 



Op 


Operand 


DLBL 


filename ,[ 'file-ID'] , [date] , [codes] 



filename 



From one to seven characters and identical to the 
symbolic name of the program DTF, which identifies 
the file. 



•file-ID' 

The name associated with the file on the volume. 
From 1 to 44 bytes of alphameric data, contained 
within apostrophes, including file-ID and, if used, 
generation number and version number of generation. 
If fewer than 44 characters are used, the field is 
left justified and padded with blanks. If this 
operand is omitted, "filename" is used. 

date From 1 to 6 characters indicating either the reten- 
tion period of the file (in the format d through 
dddd) or the absolute expiration date of the file 
(in the format yy/ddd) . ddd cannot exceed 366. If 
this operand is omitted for an output file, a 7- day 
retention period is assumed and the current date is 
the creation date. If present, this operand is 
ignored for an input file. 

codes A 2-3 character field indicating the type of file 
label as follows: 

SD for sequential disk or for DTFPH with M0UNTED= 
SINGLE. 
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DA for direct access or for DTFPH with MOUNTED=«ALL. 

IS C for indexed sequential using Load Create. 

IS E for indexed sequential using Load Extension 
Add, or retrieve. 

If this operand is omitted, SD is assumed. 

Additional fields in the standard disk file label are filled 
with default options for output files and "DOS/360 VER 3" 
is used as the system code. 



Op 


Operand 


EXTENT 


[symbolic-unit] , 
[serial-number], [typej, 
[sequence-number] , 
[relative- track] , 
[number-of-tracks] , 
[split-cylinder-track] , 
[B-bins] 



symbolic A six-character field indicating the symbolic unit 
unit (SYSxxx) f the volume for this extent. If this 
operand is omitted, the symblic unit of the 
preceding EXTENT command is used. This operand is 
not required for a single volume, IJSYSxxx file- 
name or for a file defined with the DTF DEVADDR* 
SYSnnn. 

serial From 1 to 6 characters indicating the volume 
number serial number for this extent. If fewer than six 
characters are used, the field is right- justified 
and padded with zeros. If this operand is omitted 
the volume serial number of the preceding EXTENT 
is used. If no serial number was provided in the 
EXTENT command, the serial number is not checked, 
and the files may be destroyed if the wrong volume 
is mounted. 

type One of the following characters to indicate the 
extent type: 

1 - data area (no split cylinder) 

2 - overflow area (for indexed sequential file) 
4 - index area (for indexed sequential file) 

8 - data area (split cylinder) 

If this operand is omitted, type 1 is assumed. 

sequence One to three characters containing a decimal 
number number from to 255, indicating the sequence 

number of this extent within a multiextent file. 
Extent sequence is used for the master index of 
an indexed sequential file. If a master index is 
not used, the first extent of an indexed sequen- 
tial file has the sequence number 1. The extent 
sequence number for all other types of files 
begins with 0. If this operand is omitted for the 
first extent of an ISFMS file, the extent is not 
accepted. This operand is not required for SD or 
DA files. 
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relative One to five characters indicating the sequential 
track number of the track (relative to zero) where the 
data extent is to begin. For example, track 0, 
cylinder 150 on a 2311 equals 1500 in relative 
track. If this field is omitted on an ISFMS file, 
the extent is not accepted. This operand is not 
required for SD or DA input files because the 
extents from the file labels on a disk are used. 

number One to five characters indicating the number of 
of tracks to be allotted to the file. For SD or DA 
tracks input files, this operand may be omitted. For 

split cylinders, the number of tracks must be an 
even mutiple of the number of tracks per cylinder 
specified for the file. 

split One or two characters, from to 19, indicating 
cylinder the upper track number for the split cylinder in 
track SD files . 

bins One or two characters identifying the 2321 bin 

for which the extent was created or on which the 
extent is currently located. If this field is 
one character, the creating bin is assumed to be 
zero. There is no need to specify a creating 
bin number for SD or ISFMS files. If this 
operand is omitted, bin zero is assumed for both 
characters. If this operand is included and 
positional operands are omitted, only one comma 
is required preceding the key-word operand (bins). 
(One comma for each omitted positional operand 
is acceptable, but not necessary.) 



// JOB BUILD STANDARD LABELS VERSION III 

// OPTION STDLABEL 

// DLBL I JSYSLN,' SYSTEM WORK FILE N 0. ',99/365,SD 

111111,8,0,0010,198,0 
SYSTEM WORK FILE N 1 ' , 99/365, SD 
111111,8,0,0011,594,3 
SYSTEM WORK FILE N 2. ' 99/365, SD 
111111,8,0,0014,594,6 
SYSTEM WORK FILE N 3, », 99/365, SD 
,111111,8,0,0017,594,9 
DOS SYSTEM RESIDENCE F', 99/365, SD 
111111,1,0,0001,1980 
DOS PVT REL LIB' ,99/365, SD 
111111,1,1,0380,1000 
DOS PVT SRS LIB', 99/ 365, SD 

// EXTENT SYSSLB, 111111, 1,1,1390, 600 

/* 

A 

// PAUSE END OF BUILD 



// EXTENT SYSLNK 

// DLBL IJSYS01, 

// EXTENT SYS001 

// DLBL IJSYS02, 

// EXTENT SYS002 

// DLBL IJSYS03, 

// EXTENT SYS00 3 

// DLBL IJSYSRS, 

// EXTENT SYSRES 

// DLBL IJSYSRL, 

// EXTENT SYSRLB 

// DLBL IJSYSSL, 



Track 



Background program temporary 
(USRLABEL) label information 

Background program standard 
(PARSTD) label information 

Foreground- two temporary 
(USRLABEL) label information 

Foreground- two standard 
(PARSTD) label information 
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4 Foreground-one temporary 
(U5RLABEL) label information 

5 Foreground-one standard 
(PARSTD) label information 

6-n Standard (STDLABEL) label inform- 
ation for any partition, n is 9 
for 2311; 19 for 2314. 

Sample of Control Cards to Build Standard Labels for Work 
Files and Private Libraries. 



Definition 
of a Private 
Relocatable 
Library 



Definition 
of a Private 
Source 
Statement 
Library 



Definition 
and Creation 
of a Private 
Relocatable 
Library 



// 
// 
// 

// 
// 

/* 



X'cuu* 



JOB jobname 

ASSGN SYSRLD, 

DLBL IJSYSRL, 'user identification 

of private library 1 , date, code 

EXTENT extent information 

EXEC CORGZ 

NEWVOL RL-cylin (tracks) 



A MAINT function will be required to 
catalog modules into the private library, 



// 
// 
// 

// 
// 

/* 



X 
t 



1 cuu' 



JOB jobname 

ASSGN SYSSLB, 

DLBL IJSYSSL, 'user identification 

private library', date, code 

EXTENT extent information 

EXEC CORGZ 

NEWVOL SL-cylin (tracks) 



of 



A MAINT function will be required to 
catalog modules into the private library. 



// 
// 
// 

// 
// 



/* 



JOB jobname 

ASSGN SYSRLB,X»cuu' 

DLBL IJSYSRL, 'user identification 

of private library', date, code 

EXTENT extent information 

EXEC CORGZ 

NEWVOL RL-cylin (tracks) 

COPYR operands 



COPY function is effective for private 
libraries only during their creation. 



Definition 
and Creation 
of a Private 
Source 
Statement 
Library 



// JOB jobname 

// ASSGN SYSSLB, X'cuu' 

// DLBL IJSYSSL, 'user identification 

of private library', date, code 
// EXTENT extent information 
// EXEC CORGZ 

NEWVOL SL-cylin (tracks) 

COPYS operands 

/* 

COPY function is effective for private 
libraries only during their creation 



ft.3 Si 



COMMAND 


MEANING 


IPL 


— — — ■— 
JC 


AR 


SPI 


WHEN 
ACCEPTED 



ADD 


Add a device to 
the PUB table. 


X 










DEL 


Delete a device 
from the PUB table 


X 








During IPL 
SET date and 
clock only 


SET 


Set values in the 
communication area. 


X 


X 








CLOSE 


Close magnetic 
tape input or out- 
put file or 2311. 




.X 








DVCDN 


Device down (not 
available to system 




X 








DVCUP 


Device up (now 
available to system 




X 








MTC 


Magnetic tape 
control 




X 






Between Jobs 
and Job Steps 


RESET 


Reset temporary I/O 
device assignments 
to system standard 












STOP 


Stop execution of 
background job. 




X 








UN BATCH 


Terminate batch 
processing 




X 








UCS 


Load universal 
character set 
buffer 




X 








ALLOC 


Allocate core 
storage. 




X 


X 




Between Jobs 
and Job Steps 
and after 
pressing the 
request key 
on 105 2 


MAP 


List core storage 
allocations , 




X 


X 


X 




PAUSE 


Suppress process- 
ing (enter WAIT 
state) . 




X 


X 


X 




LOG 


Log (print) job 
control statements 




X 


X 


X 


Between Jobs 
and Job Steps 
after press- 
ing the re- 
quest key on 
1052, and as 
response to 
system mess- 
age, and dur- 
ing single 
program ini- 
tiation. 
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NOLOG 


Suppress logging 
control statements. 




X 


X 


X 




CANCEL 


Cancel execution 
of current job. 




X 


X 


X 




B 


End-of-block or 
communications 


X 


X 


X 


X 


During IPL 
between Jobs 
and Job Steps 
after press- 
ing the re- 
quest key on 
1052, and as 


C 


Cancel terminal 
response (1052) . 


X 


X 


X 


X 


response to 
system mess- 
age, and dur- 
ing single 
program ini- 
tiation. 


ASSGN 


Assign Logical 
name. 




X 




X 




HOLD 


Hold current fore- 
ground assignments 




X 




X 




LISTIO 


List current I/O 
assignments . 




X 




X 




RELSE 


Release current 
foreground assign- 
ments and unassign 
them at the end of 
any job initiated 
for that area. 




X 




X 


Between Jobs 
and Job Steps 
and during 
single pro- 
gram initia- 
tion. 


UNA 


Set all assignments 
for foreground area 
to unassigned. The 
specified area must 
be inactive. 




X 




X 




MSG 


Give control to a 
a foreground commun- 
ication routine. 






X 


X 




TIMER 


Transfers timer sup- 
port to indicated 
program. 






X 


X 


After press- 
ing the re- 
questkey on 
the 1052 and 
during sin- 
gle program 














initiation 


START 


Initiates a fore- 
ground program or 
resumes batch pro- 
cessing. 






X 




After press- 
ing request 
key on 1052 


BATCH 


Initiate batch pro- 
cessing. 






X 






DLAB 


Disk label infor- 
mation. 








X 




-- 1 














DLBL 


Disk label infor- 
mation. 








X 
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EXEC 


Initiate single pro- 
gram execution 








X 




EXTENT 


Disk extent infor- 
mation. 








X 




LBLTYP 


Label information 








X 


During Single 
Program Ini- 
tiation 


READ 


Specifies a card 
reader from which 
further single 
program initia- 
tion commands are 
read. 








X 




TLBL 


Tape label infor- 
mation. 








X 




TPLAB 


Tape label infor- 
mation. 








X 




VOL 


Disk volume infor- 
mation. 








X 




XTENT 


Disk extent infor- 
mation. 








X 





1. Initial Program Loader (IPL) . 

2. Job Control (JC) . 

3. ATTN Routine (AR) . 

4. Single Program Initiation for Fl or F2. 

5. Date and clock only. 

6. Valid only if batch job foreground option was speci- 
fied at system generation. 

7. Valid only in a multiprogramming system. 



LIBRARY MAINTENANCE FUNCTIONS 
V3 DIFFERENCES 



Function 

.. ._ ._ .. ... 


Unit 


Element 


Control Statements 
Required 


Catalog 


Core Image 
Library 


Phase 


Same as V2 


Relocatable 
Library 


Module 


// JOB jobname 
// EXEC MAINT 

CATALR modulename 

[,V.M[ f C]] 

(module to be cata- 
loged) 
/* 

/a 


Source 

Statement 

Library 


Book 


// JOB jobname 

// EXEC MAINT 

CATALS sublib. book- 
name [ ,V.M] 
(book to be cata- 
loged) 
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/* 
A 


Delete 


Core Image 
Library 


Phase 
Program 


Same as V2 
Same as V2 


Relocatable 
Library 


Module 

Program 
Library 


Same as V2 

Same as V2 
Same as V2 


Source 

Statement 

Library 


Book 

Sub- 
Library 

Library 


Same as V2 

Same as V2 

// JOB jobname 
// EXEC MAINT 
DELETS ALL 
/* 

/a 


Rename 


Core Image 
Library 


Phase 


// JOB jobname 

// EXEC MAINT 

RENAMC oldname, 
newname ( , oldname , 
newname , . . . ) 

/* 


Relocatable 
Library 


Module 


// JOB jobname 

// EXEC MAINT 

RENAMR oldname, 
newname ( , oldname , 
newname , . . . ) 

/* 


Source 

Statement 

Library 


Book 


11 JOB jobname 
// EXEC MAINT 

RENAMS sub lib. 

oldname, sublib. 

newname ( , sublib , 

oldname, sublib . 

newname , . . . ) 
/* 


Update 


Source 

Statement 

Library 


Book 


// JOB jobname 
// EXEC MAINT 

UPDATE sublib. 

bookname , [s .bookl] , 

[v.m] ,[nn] 
) ADD, ) DEL, or ) 

REP statements as 

required with 

source statements 

to be changed 
) END [v.m[,C]] 

/* 

A 
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Condense 


Core Image 


Library 


// JOB jobname 




Library 


t 


// EXEC MAINT 

CONDS CL 
/* 


Relocatable 


Library 


II JOB jobname 




Library 




// EXEC MAINT 

CONDS RL 
/* 


Source 


Library 


// JOB jobname 




Statement 




// EXEC MAINT 




Library 




CONDS SL 


Libraries 


All 


II JOB jobname 








// EXEC MAINT 








CONDS CL,RL,SL 








/* 








A 


Set 


Libraries 


Any or 


// JOB jobname 


Parameter 




All 


// EXEC MAINT 


for 






CONDL lib-nnnnn 


Automatic 






[ , lib=nnnnn[ , 


Condense 






lib=»nnnnn] ] 
/* 

Notes: Values to be 
substituted for lib: 
CL--Core Image 

library 
RL- -Relocatable 

library 
SL- -Source State- 
ment Library 
Values to be sub- 
stituted for nnnnn: 
One to five 
decimal digits, 
with a maximum 
value of 65536. 


Reallo- 


System 


Library 


// JOB jobname 


cation 






// DLBL IJSYSRS, 
•DOS SYSTEM 
RESIDENCE FILE', 
date , code 

// EXTENT extent in- 
formation 

// EXEC MAINT 

ALLOC id-cylin 
(tracks) (,id= 
cylin(tracks) ,. . .) 

/* 

A 
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Notes: Values to be 
substituted for id: 
CL--Core Image 

Library 
RL--Relocatable 

Library 
SL--Source state 
ment library 
Values to be sub- 
stituted for cylin 
and tracks : 
Any integer 



Copy 



source 

Statement 

Library 



Book 



Sub- 
library 



Library 



// 
// 
// 



// 
// 



* 

* 



A 



JOB jobname 
ASSGN SYSOOZ^X'cuu' 
DLBL IJSYSRS, • 
DOS SYSTEM 
RESIDENCE FILE*, 
date, code 
EXTENT extent in- 
formation 
EXEC CORGZ 
ALLOC id-cylin 
Ctracks) [,id=« 
cylin (tracks) , . . . ) 
PRECEDING ALLOC 
STATEMENT REQUIRED 
IF NEW LIMITS TO BE 
ESTABLISHED 
COPYS sublib.bookl 
[ ,sublib.book2, . , .] 



// 
// 
// 



// 
// 



ft 
ft 
ft 



/* 



JOB jobname 
ASSGN SYS002,X'cuu' 
DLBL IJSYSRS, 'DOS 
SYSTEM RESIDENCE 
FILE' ,date,code 
EXTENT extent in- 
formation 
EXEC CORGZ 
ALLOC id-cylin 
(tracks) [,id= 
cylin(tracks) , . . .] 
PRECEDING ALLOC 
STATEMENT REQUIRED 
IF NEW LIMITS TO BE 
ESTABLISHED 
COPYS sublibl.ALL 
[ ,sublib2.ALL, . . .] 



// JOB jobname 

// ASSGN SYSOOZjX'cuu' 

// DLBL IJSYSRS,' DOS 
SYSTEM RESIDENCE 
FILE' , date, code 

// EXTENT extent 
information 

// EXEC CORGZ 

ALLOC id-cylin 
(tracks) [,id- 
cylin(tracks) , . . . ] 

* PRECEDING ALLOC 

* STATEMENT REQUIRED 

* IF NEW LIMITS TO BE 



10 
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* ESTABLISHED 

COPYS ALL 
/* 

n 


Libraries 


All 


II JOB jobname 

// ASSGN SYSOC^X'cuu 1 

// DLBL IJSYSRS, 'DOS 
SYSTEM RESIDENCE 
FILE' .date, code 

// EXTENT extent in- 
formation 

// EXEC CORGZ 

ALLOC id-cylin 
(tracks) [,id= 
cylin(tracks) ,. . .] 

* PRECEDING ALLOC 

* STATEMENT REQUIRED 

* IF NEW LIMITS TO BE 

* ESTABLISHED 
COPY ALL 

/* 
A 
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V-2 COMREG 



V-3 BG COMREG 



V-3 F2 COMREG 





— 






■" ■ — ~ - ■ 












ii, ' 


1st 


111 






111 


136 


Bytes 






Bytes 


Bytes 


Long 






Same 


Same 










as 


as 










V-2 


V-3 BG 










COMREG 


COMREG 


110 






110 


1 










111 


3 FullTords 










124 


ADDR 2nd part of PIB 










126 


ADDR MICR DTF Table 










128 


ADDR QTAM Vector Table 










132 


ADDR BG COMREG 










134 


Reserved 


134 








136 


ADDR BG 

COMREG EXTENSION 


r 136 ADT5R F2 

COMREG EX- 
TENSION 








Minimum 


Minimum 






4-Byte 


4-Byte 






BG EXTENSION 




F2 EXTENSION 






ADDR CE TABLE 




- ADDR CE TABLE 


V-3 Fl 






2r 


id Part of PIB 


COMREG 






1st 

136 

Bytes 


1 


Sytes 


1 2 3 4 S 6 7 8 9 10 11 12 13 14 15 




ADDR 


SYS- 
TEM 






Same 


BG 


BG 


LUB 


RESERVED 


as 




COM- 


IN- 




V-3 BG 




REG 


DEX 




COMREG 










ADDR 


FG2 






FG2 


FG2 
COM- 


SYS- 

LUB 

IN- 


RESERVED 


134 




REG 


DEX 












136 ADTJR 




ADDR 


FG1 




Fl 


FG1 


FG1 


SYS- 




COM- 






LUB 


RESERVED 


REG 




COM- 


IN- 




EXT- 
EN- 




REG 


DEX 












SION 




ADDR 








ATTN 


BG 


00 


RESERVED 




COM- 








REG 






Minimum 




4-Byte 




Fl EXTEN- 




SION 






ADDR CE 






' TABLE 





















Comparison of Communi cation Regions 



12 



PARTITION SAVE AREA 




24 

48 

72 

96 



JOB NAME* 


PSW 


REG 9 


REG A 


REG B 


REG C 


REG D 


REG E 


REG F 


REG 


REG 1 


REG 2 


REG 3 


REG 4 


REG 5 


REG 6 


REG 7 


REG 8 


LENGTH RESER- 
LABEL VED 

AREA 


PARTITION 
START TIME 


FLTPT RO 


FLTPT R2 


FLTPT R4 


FLTPT R6 



23 
47 

71 

95 

119 



* NOT USED FOR BG 



W 



1) rr> 

W 2 

GO 3 

CO » 

o w 

of 

o w 

00 tJ 



> 



Reset to zeros after IPL 



15 



14 

Current 

Comra 

Region 

Address 



SO 

System 

Timer 



18 

External 
Old 
PSW 



54 

System 
Time of 
Day 



20 
SVC 
Old 
PSW 



28 

Program 
Check Old 
PSW 



58 

External 
New 
PSW 



60 
SVC 
New 
PSW 



30 

Machine 
Check Old 
PSW 



68 

Program 
Check New 
PSW 



80 



Diagno stic Scan-Out Area — Model Dependent 

SUPERVISOR NUCLEUS 



38 
I/O 
Old 
PSW 



40 
CSW 



70 

Machine 
Check New 
PSW 



48 
CAW 



4C 

BG Job 
Dura- 
tion 



78 
I/O 
New 
PSW 



General Cancel Routine 



General Exit Routine (Task Se lection*) 



Background Communications Region 



General Entry Routine 



Channel Scheduler 



Start I/O Routine 



I/O Interrupt 



Unit Check 



Error Recovery Exits 



Fetch Routine 



syC A Program Check, an d External Interrup ts 



Resident Device Error Recovery 



Option Routines 



Supervisor constants. Error Recovery Block 



SVC Interrupt Table and PC. PC. and IT Tables 



Logical Transient Save Area 



m o 

to 3 

w w 

\0 hi 



> Low Core 



< 



> Nucleus Code 



< 



2nd Part 
of BG 
PIB 



1st Part 
of Fl 
PIB 



FOCL 



2nd Part 
of F2 
PIB 



1st Part 
of Attention 
PIB 



2nd Part 
of Fl 
PIB 



Quiesce 
PIB 



2nd Part 
of Attention 
PIB 



Supervisor 
PIB 



PUB TABLE 



TEB 



FICL 



NICL 



All Bound 
PIB 



Channel 
Queue 



FAVP 



1st Part 
of BG 
PIB 



LUBID 
Table 



1st Part 
of F2 
PIB 



REQID 
Table 



JIB TABLE 



LUB TABLE 



BG 
SYS 


BG 
PROG 


F2 
SYS 


F2 
PROG 


Fl 
SYS 


Fl 
PROG 



Foreground 2 Communications Region 



Foreground 1 Communications Region 



F2 Coram. Reg. Extension 



SAB 



Fl Comm. Reg. Extension 



BG Comm. Reg. Extension 



PATCH AREA 



LOGICAL TRANSIENT AREA (B- TRANSIENTS) 

$$B 



CE Table 



PHYSICAL TRANSIENT AREA (A-TRANSIENTS) 

£M 



CE Area 



BG Program Save Area 



PROBLEM PROGRAM AREA 



Core Map 



I/O Tables and 

Information 

Blocks 



Additional Comm. 
Regions 



Logical and 

Physical 

Transients 



m o 

en 2 

Cfi 3 
M hi 

© •? 
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CE SERVICEABILITY PROGRAMS 



DOS CE SERVICEABILITY PROGRAMS GENERAL INFORMATION: 

The SERVICEABILITY PROGRAMS can now be included in DOS by 
using the FOPT parameter CE-YES, in the Supervisor, These 
programs can be used by Customer Engineers, System Engineers 
and programmers as a troubleshooting tool simply by request- 
ing them on SYSLOG . A complete outline on how to use these 
programs can be found in the PLM IBM System/ 360 DISK OPER- 
ATING SYSTEM (Version 3) CE SERVlCE'ABIlITV PRO'G"RATrs~(T2T^~ 
5001). 

The Serviceability Program available in Release 16 is the 
I/O TRACE FUNCTION . In Release 17, FETCH/LOAD TRACE and 
TRANSIENT DUMP were added. 

Release 19 will have two additional Serviceability Programs. 
They are DYNAMIC DISPLAY FUNCTION and DYNAMIC PATCH FUNCTION , 

The following is a brief description of the Serviceability 
Programs and a summary on how to use them. 

I/O TRACE FUNCTION - Provides a trace table for input/out- 
put devices. It records the I/O old PSW and CSW when an 
I/O interruption occurs. It records the device address, 
the CCB address and the CSW when the CSW is stored, in 
response to a SIO instruction issued by the DOS supervisor. 
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PSW FF15000C8A003454 



w 



csw 

1000355808000000 



-»-Next Instruction Address 



-HPGM Mask 



-*ILC,CC 
^-Device Address 



— ^Machine State (AMWP) 
h-STG KEY 



-j-I/O Interrupt, Systems Mask 



PSW 0000000EFF003648 



V w v 



CSW 
0000000008000000 



»-CCB Address 

*- Channel and Unit Address 

— ►* Always X'00' 
CSW stored condition 



PSW*FE07000C80000000 

Y 



CSW 
1000355808000000 



-*• Next Instruction Address 



PGM Mask 



^ILC,CC 
Device Address 
Machine State (AMWP) 
STG KEY 



- — »-I/0 Interrupt, Systems Mask 

Indicates that at least one I/O event 
following this entry has been lost 
because of an overflow condition. 



Sample Output for I/O Trace 



FETCH/LOAD TRACE FUNCTIO N - allows tracing the order in 
which phases and transients are executed under control of 
DOS. Traceing consists of recording (for SVC1, SVC2, SVC3, 
SVC4) : 

. The location of the supervisor call 

. The program interrupt key 

. The supervisor call number 

. The name of the phase or transient being called. 

. The load address of ther phase 

. The entry address of the phase. 

NOTE: At times, SVC5, 6, 11 and 14 branch directly into 
the supervisor fetch or load routine. These are 
traced whenever they occur, and appear in the 
output of the trace. (For multiprogramming systems, 
the calling address and SVC value cannot be guaranteed 
accurate in such cases.) 

Each collection of data is referred to as a F/L event. The 
events may be preserved in a rotating buffer (first entry 
overwritten when the area is full) , or may be outputed on a 
printer, punch, tape unit or console printer. When punch 
or tape is used, the cards or tape must be processed by the 
CEAIDLST utility program to provide readable output data. 
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$$BCLOSE 

\ / 



C-001F68 



001E30 
/ 




V 



001E30 

_ / 



Entry Address 

♦-Load Address 

All Bound 

BG 

F2 

Fl 

Attention Routine 

Quiesce I/O 

Supervisor 



Call Address (This is taken from 
SVC old PSW; therefore, it is 
actually 2 bytes past the calling 
address . ) 



the 



Value of 

1 - 

2 - 

3 - 

4 - 

5 - 

6 - 
11 - 
14 - 



the Supervisor Call 

Fetch Phase 

Fetch B-transient 

Fetch A-Transient 

Load Phase 

Modify Supervisor communications 

Region 

Cancel Problem Program 

Return from B-transient 

Cancel Job- 



Phase Name 



$$BCL0SE*2 C-001F68 PI L-001E30 E-001E30 



-+■ Indicates that at least one F/L event 

following this event has been lost because 
of an overflow condition. 



Sample Output for F/L Trace 
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TRANSIENT DUMP FUNTION provides a dump of the supervisor, 
Before it is altered, on a program check interruption. 
The dump provides: 

. The 16 general registers. 

. The first 144 bytes of low core. 

. The logical transient area (with the label LTA) . 

. The physical transient area (with the label PTA) . 

This information may be outputed on either a printer or tape 
unit. When tape is used, the tape must be processed by the 
CEAIDLST utility program to provide readable output data. 

Both the printer and tape modules are reusable. That is, 
a dump is given on each program check interruption until 
the function is reset. 

DY NAMIC DI SPLAY FUNCTION - will allow the general registers 
and a specified" area of core storage to be displayed each 
time a designated location (trigger address) is reached in 
the execution of the program. 

The User specifies the parameters to determine the display. 
Required: 

. The location of the instruction that triggers the 

display (trigger address). 
. The op-code expected at the trigger address (trigger 

instruction) . 
. An output device address (to be used for the displaying) 
. The name of the phase to trigger the display. 

Optional: 

. The partition, in which the monitored phase is to be 

loaded in a multiprogramming system. 
. The area of core storage to be displayed (in addition 

to the general registers) . 

NOTE: AVAILABLE IN RELEASE 19 AND LATER. 



DYNAMIC PATC H FUNCTION - will allow the user to dynamically 
patch desired areas of core. To perform this, the user 
specifies : 

. The name of the phase that is to trigger the patch. 
. The partition (optional) into which the phase is to 

be loaded. 
. Start address where the patch is to be inserted. 
. The data (patch) to be inserted. 

The patch information cannot exceed 64K bytes. 

NOTE: AVAILABLE IN RELEASE 19 AND LATER. 
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OPERATING REQUIREMENTS AND PROCEDURES 



EQUIPMENT REQUIREMENTS 

The CEAID option requires at .least 24K 
bytes of main storage. When tape, printer, 
or punch output is used, it is recommended 
that the output device be dedicated to the 
CEAID function being executed and not share 
a selector channel or a control unit with 
other programs being executed. Although it 
is possible to share devices, this may 
result in lost events, and should be 
avoided. 

When 7-track tape is used, the data 
conversion feature is required, and the 
unit must be in system reset mode while the 
module (IOTRTAPE, FLTRTAPE, and TDMPTAPE) 
is, operating. 

The CEAID functions support existing DOS 
hardware and require no new hardware; 
however, the console feature must be present. 
The modules using a punch for output do not 
support the 1442 unless the 1442 is used as a 
punch only. 



PROGRAM REQUIREMENTS 

The CEAID option require a DOS supervisor 
(Version 3) in which the FOPT macro option 
CE=YES, or CE=nnnnn (nnnnn is between 600 and 
10,240) has been specified. The SYSGEN option 
associated with the DOS supervisor provides: 

. A CE area (600 bytes minimum) in the 
supervisor. 

. Exit points from certain supervisor 
routines 

. . A table of addresses (CE area address, 
exit point addresses, etc) 

. A pointer to the CE table in the 
communication region extension 

. A low core pointer to the CETABLE (used 
by exit points) . 
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The core image and relocatable libraries must 
contain the following phases. 



Core Image 


Relocatable 


CEAID 

CEAID001 

CliAID002 

CEAID003 

CEAID004 

CEAIDOOS* 

CEAID006* 

CEAIDLST 

$$BZCE01 


ILCEAID1 
ILCEAID2 



* Release 19 



CATAL OGING CEAID AND C EAIDLST 

All CEAID modules are written as 
self-relocating code to allow 
initialization in any partition of a 
multiprogramming system. Some differences 
exist in job control programs between 
batch-only and multiprogramming systems. 
These differences affect self-relocating 
code. 

For multiprogramming systems, 
self-relocating programs must be assigned 
an origin of location zero when they are 
linkage edited. The zero address allows 
the supervisor to recognize self -relocating 
program, and the program can be loaded 
into the appropriate location for the 
partition being initialized. 

Batch-only systems cannot recognize 
self-relocating programs, and they require 
all programs to be linkage edited to a 
valid location beyond the end of the 
supervisor. 

The root-phases CEAID and CEAIDLST 
(modules ILCEAID1 and ILCEAID2, 
respectively) are provided in the 
relocatable library so they can be linkage 
edited for the system in which they are to 
be used. All other phases associated with 
the CEAID functions are loaded by the 
root-phase CEAID, and because they do not 
require linkage editing, they are provided 
only in the core image library. 
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Before using the functions, perform a 
linkage editor run and catalog CEAID and 
CEAIDLST into the core image library. 
Cataloging may be performed by entering 
one of the following sets of cards into the 
DOS job stream: 

1. For operation in a batch-job system: 

// JOB CE1 

// OPTION CATAL 

PHASE CEAID, S 

INCLUDE ILCEAID1 

/* 

// EXEC LNKEDT 

/* 

A 

// JOB CE2 

// OPTION CATAL 

PHASE CEAIDLST,S 

INCLUDE ILCEA1D2 

/* 

// EXEC LNKEDT 

/* 

A 

2. For operation in a multiprogramming 
system: 

// JOB CE1 

// OPTION CATAL 

PHASE CEAID, +0 

INCLUDE ILCEAID1 

/* 

// EXEC LNKEDT 

/* 
A 

// JOB CE2 

// OPTION CATAL 

PHASE CEAIDLST,+0 

INCLUDE ILCEAID2 

/* 

// EXEC LNKEDT . 

/* 
A 
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INITIALIZATION 

After linkage editing into the core image library, the initializer program is 
loaded with standard DOS job control statements. The statement: 

// EXEC CEAID 
causes the initializer to be loaded. The initializer types out the first keyword, 
CEAID= and opens the keyboard for a response. A choice can be made at this 
point to enter the parameters from the console typewriter or from SYSRDR via cards 
The following is a description of each of these methods. 

INITIALIZATION VIA CARD 

1. Punch desired keywords and paramters into cards. Entries may be punched one- 
per-card, or multiple entries (separated by commas) can be made in a single card. 
An entry may not be split between two cards. All 80 columns of a card may be 
used, but a card is terminated by the first blank following an entry, or a GO 
entry. The last entry of the last card must be GO and the last card must be 
followed by a /* card. 

2. Place keyword entry card(s) in SYSRDR. 

3. Respond to the console message CEAID= by entering only an end-of-block (B 
character (alternate code 5) . 

4. The initializer reads from cards until the GO entry is encountered. 
NOTE: If a bad parameter occurs on a card, corrections are request on SYSLOG, 
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SAMPLE 
CEAID CARD INPUT STREAM 
FOR FETCH/LOAD TRACE 




//EXEC ASSEMBLY 



//JOB ASSEMBLY *JOB BEING TRACED 



CEAID-FT 



//EXEC CEAID 



//JOB CARD IN 
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INITIALIZATION VIA CONSO L E TYPEWRITER 

1. Respond to the console message CEAID--- by entering 
IT (B) , FT (B) , TD (IT), DD (F) , or DP (5) . 

2. The initializer responds with the next keyword 0D=CUU. 
NOTE : This keyword is not issued for dynamic patch. 



a. Respond with the (BJ character to select core-wrap 
mode. 

NOTE: This response is invalid for transient dump 
and dynamic display. 

b. Respond with a channel and unit address (CUU or 
X'CUU') (F) , to select an output device. 

c. Respond with GO (5). This automatically terminates 
input, and selects defaults for all remaining 
options . 

NOTE: This response is invalid for transient dump, 
dynamic display and dynamic patch. 

3. The initializer continues to "prompt" with appropriate 
keywords until all. options have been satisfied, or a 
GO (iT) response is received, whereupon defaults are 
selected for any remaining options. (B) character, 

in response to any keyword "prompt", causes selection 
of the default option, and causes the initializer to 
respond with the next option available. Response to 
IGN= or TRC- with a valid CUU causes the keyword to 
be repeated until: 

a. Three entries have been made, or 

b. (b) response alone is given, or 

c. GO (B) is entered. 

4. The sequence in which keywords are prompted depends 
on previous responses. Because AAA is valid only in 
core-wrap mode , it does not occur unless the response 
to OD is (b) (which selects core-wrape mode by 
default) . Because IGN and TRC are mutually exclusive 
TRC is prompted only after a default response to IGN. 
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SAMPLE 
CONSOLE TYPEWRITER INPUT 
FOR FETCH/LOAD TRACE 



//JOB TYPINPT3 


//EXEC CEAID 


CEAID =-- 


FT® 


OD = CUU 


® 


AAA=X'hhhh l ,X'hhhh' 


® 


PRT — - 


bg® 


PRT --- 


GO® 



(Calls for Initializer) 

(Console Requests Function) 

(CE Response*. F/L Trace Function) 

(Console Requests Output Device) 

(CE Response: Core Wrap) 

(Console Request Alternate Area) 

(CE Response: No AAA) 

(Console Requests Partition to be 
Traced) 

(CE Response: Background) 

(Console Requests Second Partition) 

(CE Response: End of Input) 



(11/68) 11 



fO 



m s 



00 



The CEAID program uses keywords to initialize the program and provide parameters. 
When initializing by card, the keywords may be placed in any column, and need not 
be in any specific order. When initiating by console, requests are made as needed, 
The following charts explain the keywords and their meanings. 



Keyword 


Parameter 


Meaning 


Default 


CEAID= 


IT 


Initiate I/O trace. 






FT 


Initiate F/L trace. 






TD 


Initiate transient dump. 


-- 




XX 


Terminate function. (Turn off 


Function 






all hooks.) 


continues . 


0D= 


CUU or X'CUU' 


Use specified output device for 


Core -wrap 


(Note 4) 




output of trace function. 


mode . 


AAA= 


x'hhhh'.x'hhhh' 


Use specified (lower limit add- 


Keep trace 




or 


ress, upper limit address) alter- 


table in CE 




x'hhhhhh'.x'hhhhhh' 


nate area addresses for core-wrap 
trace tables. (The addresses 
specified cannot be in the super- 
visor or beyond the machine core 
limits and must contain either 4 
6 numerals.) 


area. 


PRT= 


SP 


Trace supervisor. Trace all 


(Note 1) 


BG 


Trace background partition. 


partitions. 




F2 


Trace foreground 2 partition. 






Fl 


Trace foreground 1 partition. 





k) as 

s-° 



to 



PS 

(9 

Z 
o 
-t 

PL 
[/> 

H> 

o 

-3 



H 
H 



P. 
H 



— — — — — 
Keyword 


Parameter 


Meaning 


Default 


IGN* 
(Note 2) 


CUU or X'CUU 1 


Ignore I/O activity of specified 
device. A maximum of three IGN= 
CUU entries are allowed. 


Trace all 
I/O. 


TRC= 
CNote 2) 


CUU or X'CUU 1 


Trace only device specified. A 
maximum of three TRC=CUU entries 
are allowed. 


Trace all 
I/O. 


GO 
CNote 3) 




End of initializer keyword entries 


-- 


Note 1 : This keyword is valid only for multiprogramming systems. It applies 
only to F/L trace. 

Note 2 : These keywords apply only to I/O trace. 

Note 3 : GO is an invalid response to a request for a console correction to 
card input. 

Note 4 : An output device must be specified for transient dump. 



Keywords for IT, FT, and TD. 
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KEYWORD 


PARAMETER 


MEANING 


DEFAULT 


CEAID= 


DD 


Initiate dynamic display. 


_ _ 




XX 


Terminate function. (Turn off 
all hooks. If present, re- 
place trigger with the 
trigger instruction.) 


Function continues 


0D= 


CUU or X'CUU' 


Use specified output device 


_ _ 


(Note 2) 




for output of display func- 
tion. 




PHASE= 


NNNNNNNN (1-8) 


Insert the display trigger 


_ _ 


(Note 2) 


byte name field 


when the specified phase is 








loaded. 




* 


Instert the display trigger 









at the trigger address regard- 








less of which phase is in 








core. 




PRT= 


SP 


Display the trigger when the 


Display the trigger 


(Note 3) 




phase is loaded into the 


whenever phase is 






supervisor. 


loaded, regardless 




BG 


Display the trigger when the 
phase is loaded into the 
background partition. 


of partition. 




F2 


Display the trigger when the 
phase is loaded into the 
foreground 2 partition. 






Fl 


Display the trigger when the 
phase is loaded into the 








foreground 1 partition. 





o 

w 

Hi 

o 
"J 

u 

pj 

3 

o 

a 

H- 

Ul 

1— > 

fu 



TJTI 

Mo 
wH 

w 3 

11 

WW 
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00 
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KEYWORD 


PARAMETER 


MEANING 


DEFAULT 


DISPLIMS= 


X'HHHHHH'.X'HHHHHH' 

or - 
X'HHHHHH',LDDDDDDD 

or 
RDD , LDDDDDDD 


Display the general registers 
and the specified area of 
core (lower limit address, 
upper limit address; lower 
limit address, length of 
display area; register con- 
taining lower limit address, 
length of display area) . 
The addresses cannot be 
beyond the machine core 
limits. The display area 
must be a fullword multiple 
of bytes. The address para- 
meter must contain 1-6 hex 
numerals ; the length para- 
meter must contain 1-7 
decimal numerals; the regis- 
ter parameter must contain 
one of two decimal numerals, 
(registers 9,10,11,12 are 
invalid because they are used 
by the function at display 
time.) 


Display only the 
general registers. 


OP-CODE= 
(Note 2) 


HH 


Op code of the instruction 
at the trigger address 
(must be in hex) . 


-- 


TRIGADDR= 
(Note 2) 


X'HHHH* 


Address of instruction that 
triggers the display (must 
be in hex) . 


-- 


GO 

(Note 1) 




End of initializer keyword 
entries . 


-- 



o 

o 

»-i 

w 

Hi 
O 
•1 

c 

3 
p 

3 
r> 

a 

H- 
U) 

•a 
»-» 

p 



TJ1J 
WO 

»i 
wZ 

o' 

OM 
to K> 

UJVO 

<o 

to 

1*> 



01 



05 
CD 



Note 


1 


Note 


2 


Note 


3 



GO is an invalid response to a request for a console correction to card 
input . 

This keyword must be specified for dynamic display (printer 5 tape out- 
put are supported) . 

This keyword is valid only for multiprogramming systems, and must be 
used if the monitored phase is to be loaded into two different partitions 
while the display function is active. The keyword is not specified when 
an **' phase is specified. 



PI o 

tn = 
Si SB 

(J 



Keywords for Dynamic Display, 
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KEYWORD 


PARAMETER 


MEANING 


DEFAULT 


CEAID= 


DP 
XX 


Initiate dynamic patch. 
Terminate function. (Turn off 
all hooks.) 


Function Continues 


AAA= 


X'HHHHHH' ,X'HHHHHH' 

or 
X'HHHHHH', LDDDDDDD 


Use specified (lower limit 
address, upper limit address; 
or lower limit address, 
length of alternate area) 
alternate area addresses for 
dynamic patch table. (The 
addresses specified cannot 
be in the supervisor or be- 
yond the machine core limits. 
The address parameters must 
contain 1-6 hex numberals; 
the length parameter must 
contain 1-7 decimal numberals) 


Keep patch table 
in CE area. 


PHASE= 
(Note 6) 


NNNNNNNN (1-8 
byte name field) 

* (Note 1) 


Insert patch when the spec- 
ified phase is loaded. 

Insert the patch at EOJ re- 
gardless of which phase is in 
core. 




PRT= 
(Note 7) 


SP 

BG 


Insert patch when the phase 
is loaded into the super- 
visor. 

Insert patch when the phase 
is loaded into the back- 
ground partition. 


Insert patch 
whenever the phase 
is loaded, regard- 
less of partition. 



PS 

CD 

s: 
o 
l-t 

VI 

S-h 

O 

O 

P 

3 

o 

P 
r+ 

a 



TIT) 

wg 
w = 
«Z 
?o 
o' 

OH 
tOK> 

to 
o 



00 



00 



KEYWORD 


PARAMETER 


MEANING 


DEFAULT 




F2 

Fl 


Insert patch when the phase 
is loaded into the fore- 
ground 1 partition. 
Insert patch when the phase 
is loaded into the fore- 
ground 1 partition. 




SIZE (Note 3) 


The size of the remaining 
patch area is put out on 
the console and the PRT= 
keyword is reissued. 


Continue processing 


RESET (Note 3) 


The system is reset and 
the PHASE keyword is re- 
issued. 




DPADDR= 
[Note 1) 


X'HHHH* 


Address where patch is to 
be inserted (must be 1-6 
hex numerals) . 


™ — 


SIZE (Note 3) 


The size of the remaining 
patch area is issued and 
the DPADDR keyword is re- 
issued. 


Continue processing 


RESET (Note 3) 


The system is reset and 
the PHASE= keyword is re- 
issued. 




DATA= 
(Note 1) 


2-74 hex numerals 
1-37 bytes of data 


Patch information to be 
inserted, starting at 
DPADDR . 





o 
v: 
s: 

o 
-j 

e- 
i/i 

»-h 
O 

o 
*< 

3 



T3 

rt 
O 



rno 

<M 3 

o' 

WW 



00 



CO 



KEYWORD 


PARAMETER 


MEANING 


DEFAULT 




SIZE (Note 3) 


The size of the remaining 
patch area is issued and 
the DATA keyword is re- 
issued. 


Continue processing 


RESET (Note 3) 


The system is reset and 
the PHASE keyword is re- 
issued. 




DPADDR= 
(Note 4) 


X'HHHH' 
* 


New patch address, requested 
by initializer when console 
input is used --if speci- 
fied the PRT, DPADDR, and 
DATA parameters are re- 
quested. 


PHASE keyword is 
repeated. 


GO 
(Note 5) 




End of initializer keyword 
entries. 


- ■"■ 


Note 1 
Note 2 
Note 3 
Note 4 : 
Note 5 . 
Note 6 

Note 7 


: This keyword must be specified £ot dynamic patch. 

: This keyword is valid only for multiprogramming systems. 

: This parameter is valid only for dynamic patch. 

; This keyword is repeated until the B response is given. 

GO is an invalid response for a console correction to card input. 
: If '*' is specified, the Initializer inserts the patch (DPCHWRAP 

is not called) 
: If '*' is specified, this keyword is not specified. 



Keywords for Dynamic Patch 



PI O 
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Sample - trace I/O events from three specified 
devices, using printer output: 



// 


JOB 


TVPINPT 2 


// 


EXEC CEAID 




CEAID--- 




IT 


© 




OD- 


cuu 




00E 


® 




IGN 


-cuu 




® 






TRC 


■cuu 




180 


® 




TRC* 


=cuu 




090 


® 




TRC' 


=cuu 




01F 


® 


Note: 


GO does n 



Calls for initializer 

Console request function 

CE response: I/O trace 
function 

Console requests output 
device 

CE response: Printer output 

Console requests IGN para- 
meters 

CE response : No devices to 
be ignored. 

Console requests and CE 
specifies devices to be 
traced 



GO does not have to be specified here. The 
initializer knows this is the end of input 
because three TRC entries have been made. 



TERMINATION 



Any function can be terminated by recalling the ini- 
tiator in the same fashion as before (// EXEC CEAID), 
and responding to the CEAID= keyword with XX(5). It is 
also possible to reset one function by loading another 
because the $$BZCE01 transient automatically resets all 
supervisor hooks before loading a function into the CE 
area. 
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CARD/TAPE-TO- PRINTER UTILITY P ROGRAM (CEAIDLST) 

The card/tape-to-printer utility program reads the tape (or 
card) input created by the tape or punch modules from 
SYS005, and then prints the information on SYSLST in the 
same format that is used by the print modules. 

Input x>n tape or cards may contain output from a series 
of CEAID runs. Only one run of the CEAIDLST program is 
necessary to handle any combination of one output mode from 
CE serviceability programs. If an unrecognizable record is 
encountered in processing input data, a hex dump of that 
record (with a maximum of 256 bytes) is given. 

When card input is used, the data cards must be follow- 
ed by a /* card. Failure to do so results in any following 
cards being formatted as data until a /* is encountered. 

Caution: When tape is used, always reset (terminate) 
the function before executing CEAIDLST. If this is not done, 
the CEAIDLST input tape is used by the active function for 
output. 
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TOS/DOS 



STANDARD INSTRUCTION SET 



NAME 


MNEMONIC 


TYPE 


OPERAND 


COD] 


Add 


AR 


RR 


R1.R2 


1A 


Add 


A 


RX 


R1,D2<X2,B2) 


5A 


Add Halfword 


AH 


RX 


R1,D2(X2,B2) 


4A 


Add Logical 


ALR 


RR 


R1.R2 


IE 


Add Logical 


AL 


RX 


R1,D2(X2,B2) 


5E 


AND 


NR 


RR 


R1.R2 


14 


AND 


N 


RX 


R1,D2(X2,B2) 


54 


AND 


NI 


SI 


D1(B1),I2 


94 


AND 


NC 


SS 


D1<L,B1),D2(B2) 


D4 


Branch and Link 


BALR 


RR 


R1.R2 


OS 


Branch and Link 


BAL 


RX 


R1,D2(X2,B2) 


45 


Branch on Condition 


BCR 


RR 


M1.R2 


07 


Branch on Condition 


BC 


RX 


M1,D2(X2,B2) 


47 


Branch on Count 


BCTR 


RR 


R1.R2 


06 


Branch on Count 


BCT 


RX 


R1,D2(X2,B2) 


46 


Branch on Index High 


BXH 


RS 


R1,R3D2(B2) 


86 


Branch on Index 










Low or Equal 


BXLE 


RS 


R1,R3,D2(B2) 


87 


Compare 


CR 


RR 


R1.R2 


19 


Compare 


C 


RX 


RI,D2(X2,B2) 


59 


Compare Halfword 


CH 


RX 


R1,D2(X2,B2) 


49 


Compare Logical 


CLR 


RR 


R1.R2 


15 


Compare Logical 


CL 


RX 


R1,D2(X2,B2) 


55 


Compare Logical 


CLC 


SS 


Dl(L > bl),D2(B2) 


D5 


Compare Logical 


CLI 


SI 


D1(B1),I2 


95 


Convert to Binary 


CVB 


RX 


R1,D2(X2,B2) 


4F 


Convert to Decimal 


CVD 


RX 


R1,D2(X2,B2) 


4E 


Diagnose 




SI 




83 


Divide 


DR 


RR 


R1.R2 


ID 


Divide 


D 


RX 


R1,D2(X2,B2) 


5D 


Exclusive OR 


XR 


RR 


R1,R2 


17 


Exclusive OR 


x* 


RX - 


R1,D2{X2,B2) 


57 


Exclusive OR 


XI 


SI 


D1(B1),12 


97 


Exclusive OR 


XC 


SS 


D1(L,B1),D2(B2) 


D7 


Execute 


EX 


RX 


R1,D2(X2,B2) 


44 


Halt I/O 


HIO 


SI 


D1(B1) 


9E 


Insert Character 


1C 


RX 


R1,D2<X2,B2) 


43 


Load 


LR 


RR 


R1.R2 


18 


Load 


L 


RX 


R1,D2(X2,B2) 


58 


Load Address 


LA 


RX 


R1,D2(X2,B2) 


41 


Load and Test 


LTR 


RR 


R1.R2 


12 


Load Complement 


LCR 


RR 


R1,R2 


13 


Load Halfword 


LH 


RX 


R1,D2(X2,B2) 


48 


Load Multiple 


LM 


RS 


R1,R3,D2(B2) 


98 


Load Negative 


LNR 


RR 


R1.R2 


11 


Load Positive 


LPR 


RR 


R1.R2 


10 


Load PSW 


LPSW 


SI 


D1(B1) 


82 


Move 


MVI 


SI 


D1(B1),I2 


92 


Move 


MVC 


SS 


D1(L,B1),D2(B2) 


D2 


Move Numerics 


MVN 


SS 


D1(L,B1),D2(B2) 


Dl 


Move with Offset 


MVO 


SS 


D1(L1,B1),D2(L2,B2) 


Fl 


Move Zones 


MVZ 


SS 


D1(L,B1),D2(B2) 


D3 


Multiply 


MR 


RR 


R1.R2 


1C 


Multiply 


M 


RX 


R1,D2<X2,B2) 


5C 


Multiply Halfword 


MH 


RX 


R1,D2(X2,B2) 


4C 


OR 


OR 


BR 


R1.R2 


16 


OR 


O 


KX 


R1,D2(X2,B2) 


56 


OR 


OI 


SI 


D1{B1),12 


96 


OR 


OC 


SS 


D1(L,B1),D2(B2) 


D6 


Pack 


PACK 


SS 


D1(L1,B1),D2<L2,B2) 


F2 


Set Program Mask 


SPM 


RR 


Rl 


04 


Set System Mask 


SSM 


SI 


D1(B1) 


80 


Shift Left Double 


SLDA 


RS 


R1,D2(B2) 


8F 


Shift Left Single 


SLA 


RS 


R1,D2<B2) 


8B 


Shift Left Double Logical 


SLDL 


RS 


R1,D2(B2) 


8D 


Shift Left Single Logical 


SLL 


RS 


RI,D2(B2) 


89 


Shift Right Double 


SRDA 


RS 


R1,D2(B2) 


8E 


Shift Right Single 


SRA 


RS 


R1,D2(B2) 


8A 


Shift Right Double Logical 


SRDL 


RS 


R 1 , D2(B2) 


8C 


Shift Right Single Logical 


SRL 


RS 


R1,D2(B2) 


88 


Start I/O 


SIO 


SI 


D1(B1) 


9C 


Store 


ST 


RX 


R1,D2(X2,B2) 


50 


Store Character 


STC 


RX 


R1,D2(X2,B2) 


42 


Store Halfword 


STH 


RX 


R1,D2(X2,B2) 


40 


Store Multiple 


STM 


RS 


R1,R3,D2(B2) 


90 


Subtract 


SR 


RR 


IU.R2 


IB 


Subtract 


S 


RX 


R1,D2(X2,B2) 


5B 


Subtract Halfword 


SH 


RX 


R1.D2(X2,B2) 


4B 


Subtract Logical 


SLR 


RR 


R1.R2 


IF 


Subtract Logical 


SL 


RX 


R1,D2(X2,B2) 


5F 



STANDARD INSTRUCTION SET 
(Continued) 



Supervisor Call 


SVC 


RR 


I 


OA 


Test and Set 


TS 


SI 


D1(B1) 


93 


Test Channel 


TCH 


SI 


D1(D1) 


9F 


Test I/O 


TIO 


SI 


D1(B1) 


9D 


Test Under Mask 


TM 


SI 


D1(B1),I2 


91 


Translate 


TR 


SS 


D1(L,B1),D2(B2) 


DC 


Translate and Test 


TRT 


SS 


D1(L,B1),D2(B2) 


DD 


Unpack 


UNPK 


SS 


D1(L1,B1),D2(L2,B2) 


F3 


DECIMAL FEATURE 


INSTRUCTIONS 








Add Decimal 


AP 


SS 


D1(L1,BD,D2(L2,B2) 


FA 


Compare Decimal 


CP 


SS 


D1(L1,B1),D2(L2,B2) 


F9 


Divide Decimal 


DP 


SS 


D1(L1,B1),D2(L2,B2) 


FD 


Edit 


Eli 


SS 


D1(L,B1),D2(B2) 


DE 


Edit and Mark 


EDMK 


SS 


D1(L,B1),D2(B2) 


DF 


Multiply Decimal 


MP 


SS 


D1(L1,B1),D2(L2,B2) 


FC 


Subtract Decimal 


SP 


SS 


D1(LL,BL) ( D2(L2,B2) 


FB 


Zero and Add 


ZAP 


SS 


D1(L1,B1).D2(L2,B2) 


F8 


DIRECT CONTROL FEATURE INSTRUCTIONS 








Rear Direct 


RDD 


SI 


D1(B1),I2 


85 


Write Direct 


WRD 


SI 


D1(B1),12 


84 


PROTECTION FEATURE INSTRUCTIONS 








Insert Storage Key 


ISK 


RR 


R 1 , P.2 


09 


Set Siorage Key 


SSK 


RR 


R1.R2 


08 



BASIC INSTRUCTION FORMATS 



FIRST HALFWORD 



SECOND HALFWORD 



THIRD HALFWORD 



RR FORMAT 


REGISTER 
OPERANDS 

J 2 


OP CODE 


Ri 


B-2 



78 II 12 

REGISTER 
OPERAND 



1 



RX FORMAT 



STORAGE 

OPERAND 

2 



OP CODE 



Rl 



X 2 



78 



RS PORMA'.- 



11 12 15 

REGISTER 
OPERANDS 



D 2 



16 19 20 



31 



STORAGE 

OPERAND 

2 



OP CODE 



R 



*3 



78 



11 12 15 



IMMEDIATE 



D 2 



16 19 20 



31 



STORAGE 



SI FORMAT 


UI 








u 


_ 1 . ... 


1 


OP CODE 


«2 


Bl 


Dl 


7( 


! 




15 


16 19 


20 




31 



L 



SS FORMAT 



STORAGE 
OPERAND 

_JL__ 



STORAGE 

OPERAND 

I 



OP CODE 



El L 2 



'1 



Dl 



B 2 



Do 



78 



II 12 15 16 19 20 



31 



47 



FLOATING-POINT FEATURE INSTRUCTIONS 



Add Normalized 










(Long) 


ADR 


RR 


R1,R2 


2A 


Add Normalized 










(Long) 


AD 


RX 


R1,D2(X2,B2> 


6A 


Add Normalized 










(Short) 


AER 


RR 


R1.R2 


3A 


Add Normalized 










(Short) 


AE 


RX 


R1.D2(X2,B2) 


7A 


Add Unnormalized 










(Long) 


AWR 


RR 


R1.R2 


2E 


Add Unnormalized 










(Long) 


AW 


RX 


R1,D2(X2,B2> 


6E 


Add Unnormalized 










(Short) 


AUR 


RR 


R1,R2 


3E 


Add Unnormalized 










(Short) 


AU 


RX 


R2,D2(X2,B2) 


7E 


Compare (Long) 


CDR 


RR 


R1.R2 


29 


Compare (Long) 


CD 


RX 


R1,D2(X2,B2) 


69 


Compare (Short) 


CER 


RR 


R1.R2 


39 


Compare (Short) 


CE 


RX 


R1,D2(X2,B2) 


79 


Divide (Long) 


DDR 


RR 


R1.R2 


2D 


Divide (Long) 


DD 


RX 


R1,D2(X2,B2) 


6D 


Divide (Short) 


DER 


RR 


R1,R2 


3D 


Divide (Short) 


DE 


RX 


R1,D2(X2,B2) 


7D 


Halve (Long) 


HDR 


RR 


R1.R2 


24 


Halve (Short) 


HER 


RR 


RI.R2 


34 


Load and Test (Long) 


LTDR 


RR 


R1,R2 


22 


Load and Test (Short) 


LTER 


RR 


R1.R2 


32 


Load Complement 










(Long) 


LCDR 


RR 


R1.R2 


23 


Load Complement 










(Short) 


LCER 


RR 


R1.R2 


33 


Load (Long) 


LDR 


RR 


R1.R2 


28 


Load (Long) 


LD 


RX 


R1,D2(X2,B2) 


68 


Load Negative (Long) 


LNDR 


RR 


R1,R2 


21 


Load Negative (Short) 


LNER 


RR 


R1,R2 


31 


Load Positive (Long) 


LPDR 


RR 


R1.R2 


20 


Load Positive (Short) 


LPER 


RR 


R1.R2 


30 


Load (Short) 


LER 


RR 


RLR2 


38 


Load (Short) 


LE 


RX 


R1,D2(X2,B2) 


78 


Multiply (Long) 


MDR 


RR 


R1.R2 


2C 


Multiply (Long) 


MD 


RX 


R1,D2(X2,B2) 


6C 


Multiply (Short) 


MER 


RR 


R1.R2 


3C 


Multiply {Short) 


ME 


RX 


R1,D2(X2,B2) 


7C 


Store (Long) 


STD 


RX 


R1,D2(X2,B2) 


60 


Store (Short) 


STE 


RX 


R1,D2(X2,B2) 


70 


Subtract Normalized 










(Long) 


SDR 


RR 


R1.R2 


2B 


Subtract Normalized 










(Long) 


SD 


RX 


R1,D2(X2,B2) 


6B 


Subtract Normalized 










(Short) 


SER 


RR 


R1.R2 


3B 


Subtract Normalized 










(Short) 


SE 


RX 


R1,D2(X2,B2) 


7B 


Subtract Unnormalized 










(Long) 


SWR 


RR 


R1.R2 


2F 


Subtract Unnormalized 










(Long) 


SW 


RX 


R1,D2(X2,B2) 


6F 


Subtract Unnormalixed 










(Short) 


SUR 


RR 


R1,R2 


3F 


Subtract Unnormalized 










(Short) 


SU 


RX 


R1,D2(X2,B2) 


7F 


CHARACTERISTICS FOR CONSTANTS 








Code 


Type 


Machine Format 


C 


Character 


8 -Bit Code for each Character 




X 


Hexadecimal 


4- Bit Code for each Hexadecimal Digit 




B 


Binary 


Binary Digits (ones and zeros) 




F 


Fixed-point 


Signed, 


Fixed- point Binary 


Format; Normally a Full Word 


H 


Fixed-point 


Signed, 


Fixed-point Binary 


Format; Normally a Half Word 


E 


Floating-point 


Short Floating-point Format; Normally a Full Word 




D 


Floating-point 


Long Floating-point Format; Normally a Double Word 




P 


Decimal 


Packed Decimal Format 






Z 


Decimal 


Zoned Decimal Format 






A 


Address 


Value of Address; Normally a Full Word 




V 


Address 


Space Reserved for External Symbol Addressee; 








Each Address Normally a 1 


Pull Word 




S 


Address 


Address in Base Displacement Form 




Y 


Address 


Value of Address; Normally a Half Word 


' 



EXTENDED MNEMONIC INSTRUCTION CODES 
GENERAL 



EXTENDED CODE 

B D2(X2,B2) 
BR R2 
NOP D2(X2.B2) 
NOPR R2 



MACHINE INSTRUCTION 

BC 15,D2(X2,B2) 
BCR'lS, R2 
BC 0. D2(X2,B2) 
BCRO, R2 



AFTER COMPARE INSTRUCTIONS-^ :B) 



Bii 

BL 

BE 

BNH 

BNL 

BNE 



D2(X2 B2) 
D2(X2,B2) 
D2(X2,B2) 
D2(X2,B2) 
D2(X2,B2) 
D2(X2.B2) 



BC2. 

BC4, 

BC8, 

BC13, 

BC11. 

BC7, 



AFTER ARITHMETIC INSTRUCTIONS 



BO D2(X2,B2) 

BP D2(X2,B2) 

BM D2(X2.B2) 

BZ D2{X2,B2) 



BCI. 
BC2, 
BC4, 
BC8, 



D2(X2,B2) 
D2(X2.B2) 
D2(X2,B2) 
D2(X2.B2) 
D2(X2.B2) 
D2(X2,B2) 



D2(X2.B2) 
D2(X2,B2) 
D2(X2,B2) 
D2(X2.B2) 



AFTER TEST UNDER MASK INSTRUCTIONS 

BO D2(X2,B2) BCI, D2(X2,'B2) 

D2{X2,B2) BC4, D2(X2,B2) 



BM 

BZ D2(X2,B2) 



BC8, D2(X2,B2) 



MEANING 

Branch Unconditionally 
Branch Unconditionally 
No Operation 
No Operation (RR) 



Branch on A High 
Branch on A Low 
Branch on A Equal B 
Branch on A Not High 
Branch on A Not Low 
Branch on A Not Equal B 



Branch on Overflow 
Branch on Plus 
Branch on Minus 
Branch on Zero 



Branch if Ones 
Branch if Mixed 
Branch if Zeros 



CNOP ALIGNMENT 



Double Word 


Word 


Word 


Half Word 


Half Word 


Half Word 


Half Word 


Byte 


Byte 


Byte I Byte 


r 
Byte j Byte 


Byte Byte 

1 


x. *- ^ v 

0.4 2,4 0,4 2.4 
0.8 2,8 4.8 6,8 



EDIT AND EDIT & MARK SYMBOLS 



Editorial 
Symbol 

b 



Mask Meaning 

hex 40 blank 

hex 21 significance start character 

hex 22 field separator character 

hex 20 digit-select character 



PERMANENT STORAGE ASSIGNMENT 



DEC 


ADDRESS 
HEX 


BINARY 


LENGTH 


PURPOSE 








0000 


0000 


double -word 


Initial program loading PSW 


8 


8 


0000 


1000 


double-word 


Initial program loading CCW1 


16 


10 


0001 


0000 


double-word 


Initial program loading CCW2 


24 


18 


0001 


1000 


double-word 


External old PSW 


32 


20 


0010 


0000 


double-word 


Supervisor call old PSW 


40 


28 


0010 


1000 


double-word 


Program old PSW 


48 


30 


0011 


0000 


double-word 


Machine-check old PSW 


56 


38 


0011 


1000 


double -word 


Input/output old PSW 


64 


40 


0100 


0000 


double- word 


Channel status word 


72 


48 


0100 


1000 


word 


Channel address word 


76 


4C 


0100 


1100 


word 


Unused 


80 


50 


0101 


0000 


word 


Timer (uses bytes 50, 51 & 52) 


84 


54 


0101 


0100 


word 


Unused 


88 


58 


0101 


1000 


double-word 


External new PSW 


96 


60 


0110 


0000 


double-word 


Supervisor call new PSW 


104 


66 


0110 


1000 


double- word 


Program new PSW 


112 


70 


0111 


0000 


double- word 


Machine-check new PSW 


120 


78 


0111 


1000 


double -word 


Input/output new PSW 


128 


80 


1000 


0000 


(1) 


Diagnostic scan-out area 



(1) The size of the diagnostic scan-out area depends on the. particular model and I/O 
channels; for models 30 through 75, maximum size fs 256 bytes. 



CONDITION CODE SETTING 



FLOATING-POINT ARITHMETIC 








Add Normalized S/L 


zerp 


<zero 


> ze,f*> 


overflow 


Add Unnormalized S/L 


zero 


<zero 


> zero 


overflow 


Compare S/L (A :B) 


equal 


A low 


A high 


-- 


Load and Test S/L 


zero 


<zero 


>zero 


-- 


Load Complements S/L 


zero 


<zero 


>zero 


— 


Load Negative S/L 


zero 


<zero 


-- 


-- 


Load Positive S/L 


zero 


-- 


>zero 


-- 


Subtract Normalized S/L 


zero 


<zero 


>zero 


overflow 


Subtract Unnormalized S/L 


zero 


<zero 


>zero 


overflow 


FIXED-POINT ARITHMETIC 










Add H/F 


zero 


<zero 


> zero 


overflow 


Add Logical 


zero, 


not zero, 


zero 


not zero, 




not carry ^ 


not carry 


carry 


carry 


Compare H/F (A :B) 


equal 


A low 


A high 


— 


Load and Test 


zero 


<zero 


>zero 


-- 


Load Complement 


zero 


<zero 


>zero 


overflow 


Load Negative 


zero 


<zero 


-- 


-- 


Load Positive 


zero 


,- 


> zero 


overflow 


Shift Left Double 


zero 


<zero 


> zero 


overflow 


Shift Left Single 


zero 


<zero 


> zero 


overflow 


Shift Right Double 


zero 


<zero 


> zero 


-- 


Shift Right Single 


zero 


<zero 


> zero 


-- 


Subtract H/F 


zero 


< zero 


> zero 


overflow 


Subtract Logical 


-- 


not zero. 


zero, 


not zero, 






not carry 


carry 


carry 


DECIMAL ARITHMETIC 










Add Decimal 


zero 


<zero 


>zero 


o"erflow 


Compare Decimal (A:B) 


equal 


A low 


A high 


-- 


Subtract Decimal 


zero 


<zero 


>zero 


overflow 


Zero and Add 


zero 


<zero 


>zero 


overflow 


LOGICAL OPERATIONS 










AND 


zero 


not zero 


-- 


-- 


Compare Logical (A :B) 


equal 


A low 


A high 


-- 


Edit 


zero 


<zero 


> zero 


-- 


Edit and Mark 


zero 


<zero 


>zero 


-- 


Exclusive OR 1 


zero 


not zero 


-- 


-• 


OR 


zero 


not zero 


-- 


-- 


Test Under Mask 


zero 


mixed 


-- 


one 


Translate and Test 


zero 


Incomplete 


complete 


-- 


INPUT/OUTPUT OPERATIONS 








Halt I/O 


not working 


halted 


stopped 


not oper 


Star I/O 


available 


CSW stored 


busy 


not oper 


Test Channel 


not working 


CSW ready 


working 


not oper 


Test I/O 


available 


CSW stored 


working 


not oper 



PROGRAM STATUS WORD 



32 


33 34 35 36 39 40 





Multiplexer channel mask 


1 


Selector channel 1 mask 


2 


Selector channel 2 mask 


* 


Selector channel 3 mask 


4 


Selector channel 4 mask 


5 


Selector channel 5 mask 


6 


Selector channel 6 mask 


7 


External mask 


12 


ASCII mode (A) 



47 '48 



55'56 



SyBtem MaBk* 


Key y 


AMWP* 


Interruption Code 


7 8 11 12 15 16 23*24 


31 


1LC 


CC 


Prog. 
Mask* 


Instruction Address 



63 



32 
34 



13 
14 
15 
■33 
■35 
36 
37 
38 
39 



Machine check mask (M) 
Wait state (W) 
Problem state (P) 
Instruction Length code (ILC) 
Condition code (CC) 
Fixed-point overflow mask 
Decimal overflow mask 
Exponent underflow mask 
Significance mask 



"A one-bit equals on, and permits and interrupt. 



- 5 - 



CODE FOR PROGRAM INTERRUPTION 



Interruption Code 


Program Interruption 
Cause 


DEC 


HEX 


BINARY 


1 


01 


0000 0001 


Operation 


2 


02 


0000 0010 


Privileged operation 


3 


03 


0000 0011 


Execute 


4 


04 


0000 0100 


Protection 


5 


05 


0000 0101 


Addressing 


6 


06 


0000 0110 


Specification 


7 


07 


0000 0111 


Data 


8 


08 


9000 1000 


Fixed-point overflow 


9 


09 


0000 1001 


Fixed-point divide 


10 


0A 


0000 1010 


Decimal overflow 


11 


0B 


0000 1011 


Decimal divide 


12 


OC 


oooo noo 


Exponent overflow 


13 


OD 


0000 1101 


Exponent underflow 


14 


OE 


0000 1110 


Significance 


15 


OF 


0000 1111 


Floating-point divide 



HEXADECIMAL AND. DECIMAL CONVERSION 

To find the decimal number, locate the Hex number and Its decimal equivalent for each 
position. Add these to obtain the decimal number. To find the Hex number, locate the next 
lower decimal number and its Hex equivalent. Each difference is used to obtain the next Hex 
number until the entire number is developed. 



BYTE 


BYTE 


BYTE 


0123 


4567 


0123 


4567 


0123 


4567 


HEX DEC 


HEX DEC* 


HEX DEC 


HEX 


DEC 


HEX 


DEC 


HEX 


DEC 





O 





























1 1,048,576 


1 


65,536 


1 


4,0% 


1 


256 


1 


16 


1 


I 


2 2,097, 152 


2 


131,072 


2 


8,192 


2 


512 


2 


32 


2 


2 


3 3,145,728 


3 


196,608 


3 


12,288 


3 


768 


3 


48 


3 


3 


4 4,194,304 


4 


262,144 


4 


16, 384 


4 


1,024 


4 


64 


4 


4 


5 5,242,880 


5 


327,680 


5 


20,43ft 


5 


1.28Q 


5 


80 


5 


5 


6 6,291,456 


6 


393,216 


6 


24,576 


6 


1,536 


6 


96 


6 


6 


7 7,340,032 


7 


458,752 


7 


28,672 


7 


1,792 


<2 


112 


7 


/ 


8 8,388,608 


8 


524,288 


8 


32,768 


8 


2,048 


8 


128 


8 


8 


9 9,437,184 


9 


589, 824 


9 


36, 864 


9 


2,304 


9 


144 


9 


9 


A 10,485,760 


A 


655.360 


A 


40,960 


A 


2,560 


A 


160 


A 


10 


B 11,534,336 


B 


720, 896 


B 


45,056 


B 


2,816 


B 


176 


B 


11 


C 12,582,916 


C 


786,432 


C 


49, 152 


C 


3,072 


C 


192 


C 


12 


D 13,631,488 


D 


851,968 


D 


53,248 


D 


3,328 


D 


208 


D 


13 


E 14,680,064 


E 


917,504 


E 


57,344 


E 


3,584 


E 


224 


E 


14 


F 15,728,640 


F 


983,040 *■ 


F 


61,440 


F 


3,840 


F 


240 


F* 


15 


6 


5 


4 


3 


2 


1 



It 



* C-- 



<V 



~f~JlS7< §: 



li.w 



^~\ ^™* 












POWERS OF 


16 


POWERS OF 2 










16" 




n 


2 n 




n 






1 







512 


9 








16 


1 


1 


024 


10 








256 


2 


2 


048 


11 








4 096 


3 


4 


096 


12 








65 536 


4 


8 


192 


13 






1 


048 576 


5 


16 


364 


14 






16 


777 216 


6 


32 


768 


15 






268 


435 456 


7 


65 


536 


16 


» 




4 294 


967 296 


8 


131 


072 


17 






68 719 


476 736 


9 


262 


144 


18 




I 


099 511 


627 776 


10 


524 


288 


19 




17 


592 186 


044 416 


11 


1 048 


576 


20 




281 


474 976 


710 656 


12 


2 097 


152 


21 




4 503 


599 627 


370 496 


13 


4 194 


304 


22 


• 


12 057 


594 037 


927 936 


14 


8 388 


608 


23 


1 152 921 


504 606 


846 976 


15 


16 777 


216 


24 



OPERATION CODES FOR: 



RR FORMAT INSTRUCTIONS 



7t 






















Hexa- 




Graphic & Con- 


(2) 


Punched 


System /360 






Deci- 
mal 


deci- 
mal 


Mnemonic 


trol Symbols 


7 -Track Tape 
BCDIC 


Card 
Code 


8-blt 
Code 


(3) 




BCDIC EBCDIC 







00 








12-0-9-8-1 


0000 0000 


CCW 




1 


01 








12-9-1 


0000 0001 






2 


02 








12-9-2 


0000 0010 






3 


03 








12-9-3 


OOOOOOU 






4 

5 


04 


SPM 


PF 




12-9-4 


0000 0100 






05 


BALR 


HT 




12-9-5 


0000 0101 






6 


06 


BCTR 


LC 




12-9-6 


0000 0110 






7 


07 


BCR 


DEL 




12-9-7 


0000 0111 




8 


08 


SSK 






12-9-8 


0000 1000 


CCW 


1 


9 
10 


09 


1SK 






12-9-8-1 


0000 1001 




'J 

3 


OA 


SVC 






12-9-8-2 


0000 1010 




1- 


11 


OB 








12-9-8-3 


0000 1011 




C 


12 


OC 


(EBCDIC +) 






12-9-8-4 


0000 1100 






13 


OD 


(EBCDIC -) 






12-9-8-5 


0000 1101 




14 
15 


OE 








12-9-8-6 


0000 1110 




"8 


OF 




CUI 




12-9-8-7 


0000 1111 




!/} 


16 


10 


LPR 






12-11-9-8-1 


0001 0000 


CCW 




17 


11 


LNR 






11-9-1 


0001 0001 






18 


12 


LTR 






11-9-2 


0001 0010 






19 
20 


13 


LCR 






11-9-3 


0001 0011 






14 


NR 


RES 




11-9-4 


0001 0100 






21 


15 


CLR 


NL 




11-9-5 


0001 0101 






22 


16 


OR 


BS 




11-9-6 


0001 0110 






23 


17 


XR 


1L 




11-9-7 


0001 0111 






24 

25 


18 


LR 






ll-9'8 


0001 1000 


CCW 




19 


CR 






11-9-8-1 


0001 1001 






26 


1A 


AR 


CC 




11-9-8-2 


0001 1010 






27 


IB 


SR 




, 


11-9-8-3 


0001 1011 






28 


1C 


MR 






11-9-8-4 


0001 1100 






29 
30 


ID 


DR 






11-9-8-5 


0001 1101 






IE 


ALR 






11-9-8-6 


0001 1110 






31 


IF 


SLR 


CU2 




11-9-8-7 


oooi nn 




>< 


£■ 32 


20 


LPDR 






U-0-9-8-1 


0010 0000 


CCW 




33 


21 


LNDR 






0-9-1 


0010 0001 






34 
35 


22 


LTDR 






0-9-2 


0010 0010 






23 


LCDR 






0-9-3 


0010 0011 






36 


24 


HDR 


BYP 




0-9-4 


0010 0100 






37 


25 




LF 




0-9-5 


0010 0101 




o 

•a 


38 


26 




EOB 




0-9-6 


0010 01 10 




39 
40 


27 




PRE 




0-9-7 


0010 1)111 




28 


LDR 






0-9-8 


0010 1000 


CCW 


e 


41 


29 


CDR 






0-9-8-1 


0010 1001 






42 


2A 


N ADR 


SM 




0-9-8-2 


0010 1010 




QJ 


43 


2B 


N SDR 






0-9-8-3 


0010 1011 




v. 
2 


44 
45 


2C 


N MDR 






0-9-8-4 


0010 1100 




P 
u 


■2D 


N DDR 






0-9-8-5 


0010 HOI 




H. 


46 


2E 


AWR 






0-9-8-6 


0010 11 to 




c 


47 


2F 


SWR 


CU3 




0-9-8-7 


0010 1111 




I 


48 


30 


LPER 






12-11-0-9-8-1 


0011 0000 


CCW 


i 


d 49 
50 


31 


LNER 






9-1 


0011 0001 




c 


32 


LTER 






9-2 


0011 0010 




c 


51 


33 


LCER 






9-3 


0011 0011 




uu 


52 


34 


HER 


PN 




9-4 


0011 0100 






53 


35 




RS 




9-5 


0011 0101 






54 
55 


36 




UC 




9-6 


0011 0110 






37 




EOT 




9-7 


0011 0111 






56 


38 


LliR 






9-8 


0011 1000 


CCW 




57 


39 


CER 






9-8-1 


0011 1001 






58 


3A 


N AER 






9-8-2 


0011 1010 






59 
60 


3B 


N SER 






9-8-3 


0011 1011 






3C 


N MER 






9-8-4 


0011 1100 






61 


3D 


NDER 






9-8-5 


0011 1101 






62 


3E 


AUR 






9-8-6 


0011 1110 




"l 


63 


3F 


SUR 






9-8-7 


0011 UK 





(2) 

(3) 
(4) 
(5) 

RR Format 



Note that check bit (C) is not shown; ad 1 C bit tor odd or even parity as needed except 

for even parity, decimal 64 is CA, the same as decimal 122 

CCW flag bit assignments 

Decimal feature instructions 

System /360 assembler programs require these codes 



Op Code 

, -- - , 


Rl/Mi 


R 2 







7 8 



11 12 



15 



R1.R2 - Meaningful for all RR Instructions except SPM and SVC 
BASE AND INDEX REGISTERS 



Base Address or Index 



7 8 



31 



RX FORMAT 


INSTRUCTIONS 
















7^ 


Deci- 
mal 


Hexa- 




Graphic 


& Con- 


(2) 


Punched 


System /360 








deci- 
mal 


Mnemonic 


trol Symbols 


7 -Track Tape 
BCDIC 


Card 
Code 


8-bit 
Code 


(3) 


(3) 




BCDIC EBCDIC ' 




64 


40 


STH 


SP 




(2) 


no punches 


0100 0000 


ccw 






65 


41 


LA 








12-0-9-1 


0100 0001 








66 


42 


STC 








12-0-9-2 


0100 0010 








67 


43 


1C 








12-0-9-3 


0100 0011 








68 
69 


44 


EX 








12-0-9-4 


0100 0100 








45 


BAL 








12-0-9-5 


oioooioi 








70 


46 


BCT 








12-0-9-6 


0100 0110 








71 


47 


BC 








12-0-9-7 


Vhoooih 

0100 1000 








72 


48 


LH 








12-0-9-8 


ccw 




4*J 


73 
74 


49 


CH 








12-8-1 


0100 1001 






4A 


AH 




<L 




12-8-2 


0100 10IQ 






a 


75 


4B 


SH 






BAB 21 


12-8-3 


oioo. ion 

0100\1100 








76 


4C 


MH 


) 


< 


B A 8 4 


12-8-4 






77 


4D 




1 


( 


B A 8 4 J 


12-8-S 


0100 1101 




( 


a 


78 
79 


4E 


CVD 


< 


+ 


B A 8 4 2 


12-8-6 


0100 1110 




+ 


-a 

Li 


4F 


CVB 


t: 




B A 8 4 2 1 


12-8-7 


oioo mi 








3 


80 


50 


ST 


& + 


& 


B A 


12 


0101 0000 


ccw 




81 


51 










12-11-9-1 


0101 0001 






in 


82 
83 

84 


52 
53 










12-11-9-2 
12-11-9-3 


0101 0010 
0101 0011 








54 


N 








12-U-9-4 


0101 0100 








85 


55 


CL 








12-11-9-5 


0101 0101 








86 


56 


O 








12-11-9-6 


0101 0110 








87 


57 


X 








12-11-9-7 


0101 0111 








88 
89 


58 


L 








12-11-9-8 


0101 1000 


ccw 






59 


C 








11-8-1 


0101 1001 








90 


5A 


A 




i 




11-8-2 


0101 1010 








91 


5B 


S 


$ 


$ 


B 8 2 1 


11-8-3 


oioi ion 








92 


5C 


M 


* 


* 


S 8 4 


11-8-4 


0101 1100 








93 
94 


5D 


D 


j 


) 


B 8 4 1 


U-8-5 


0101 1101 




) 


-> 


5E 


AL 






B 8 4 2 


11-8-6 


0101 1110 






95 


5F 


SL 


A 




B 8 4 2 1 


11-8-7 


0101 1111 








96 


60 


STD 


- 


- 


B 


11 


0110 0000 


ccw 






97 


61 




/ 


/ 


A 1 


0-1 


0110 0001 








98 
99 


62 










11-0-9-2 


0110 0010 








63 










11-0-9-3 


0110 0011 








100 


64 










11-0-9-4 


0110 0100 








101 


65 










11-0-9-5 


0U0 0101 








102 


66 










11-0-9-6 


0110 0110 






3 
u 


103 
104 


67 










11-0-9-7 


0110 0111 






68 


LD 








11-0-9-8 


0110 1000 


ccw 




6 

CO 


105 


69 


CD 








0-8-1 


0110 tooi 






106 


6A 


NAD 








12-11 


0110 1010 








107 


6B 


NSD 






A 8 2 1 


0-8-3 


0110 1011 






c 

8 


108 
109 


6C 


NMD 


56 < 


% 


A 8 4 


0-8-4 


0110 1100 






60 


NDD 


V 




A 8 4 1 


0-8-5 


0110 1101 






u. 


110 


6E 


AW 




> 


A 8 4 2 


0-8-6 


0110 1110 






c 


111 


6F 


SW 


ttf 


7 


A 8 4 2 I 


0-8-7 


oho mi 






£ 


112 


70 


STE 








12-11-0 


0111 0000 


ccw 




1 

hi 


113 

D 

114 


71 










12-11-0-9-1 


0111 0001 






C 


72 










12-11-0-9-2 


0111 0010 






o 


115 


73 










12-11-0-9-3 


0111 0011 






u. 


116 
117 
118 

119 


74 
75 
76 










12-11-0-9-4 
12-U-0-9-5 
12-11-0-9-6 


01110100 
0111 0101 
0111 0110 








77 










12-11-0-9-7 


oin oni 








120 


78 


LE 








12-11-0-9-8 


0111 1000 


ccw 






121 


79 


CE 








8-1 


0111 1001 








122 


7A 


NAE 






A 


8-2 


0111 1010 








123 
124 


78 


NSE 


# ■ 


# 


8 2 1 


8-3 


0111 1011 








7C 


NME 


©■ 


@ 


8 4 


8-4 


on r moo 








125 


7D 


NDE 




■ 


8 4 1 


8-5 


0111 1101 








126 


7E 


AU 


.-. 


■ 


8 4 2 


8-6 


0111 1110 




= 


^ 


127 


7F 


SU 


V 




8 4 2 1 


8-7 


oni. nn 







RX Format 



OpCode 


Rl/M t 


*2 


Ba 


D 2 



7 8 



11 12 



15 16 



19 20 



R1,D2(X2,B2) 
R1.S2W2) 

SHORT FLOATING-POINT NUMBER 



RI.D2(0,B2) 
R1.S2 



S J Characteristic 


Fraction 



1 78 

LONG FLOATING-POINT NUMBER 



Characteristic 



Fraction 



1 



78 



8 - 



ia 



63 



KS, SI FORMAT INSTRUCTIONS 



Deci- 
mal 


Hexa- 




Graphic & Con- (2) 


Punched 


System /360 




deci- 
mal 


Mnemonic 


trol Symbols 


7 -Track Tape 
BCDIC 


Ctrd 
Code 


8 -bit 
Code 


(3) 


SCDtC EBCDIC 


128 


80 


SSM 






12-0-8-1 


1000 0000 


CCW 


129 


81 




a 




12-0-1 


1000 0001 




130 


82 


LPSW 


b 




12-0-2 


1000 0010 




131 


83 


(Diagnose 


c 




12-0-3 


1000 0011 




132 
133 


84 


WRD 


d 




12-0-4 


1000 0100 




85 


RDD 


e 




12-0-5 


1000 0101 




134 


86 


BXH 


f 




12-0-6 


1000 0110 




135 


87 


BXLE 


g 




12-0-7 


1000 0111 




136 


88 


SAL 


h 




12-0-8 


1000 1000 


CCW 


137 
138 


89 


SLL 


t 




12-0-9 


1000 1001 




8A 


SRA 






12-0-8-2 


1000 1010 




139 


8B 


SLA 






12-0-B-3 


1000 1011 




140 


8C 


SRDL 






12-0-8-4 


1000 1100 




141 


8D 


SLDL 






12-0-8-5 


1000 1101 




142 
143 


8E 


SRDA 






12-0-8-6 


1000 1110 




8F 


SLDA 






12-0-8-7 


iooo mi 




144 


90 


STM 






12-11-8-1 


10010000 


CCW 


145 


91 


TM 


J 




12-11-1 


10010001 




146 


92 


MV1 


k 




12-11-2 


1001 0010 




147 
148 


93 


TS 


1 




12-11-3 


10010011 




94 


Nl 


m 




12-11-4 


1001 0100 




149 


95 


CL1 


n 




12-11-5 


1001 0101 




150 


96 


OI 


o 




12-11-6 


10010110 




151 


97 


XI 


P 




12-11-7 


10010111 




152 
153 


98 


LM 


q 




12-11-8 


1001 1000 


CCW 


99 




r 




12-11-9 


1001 1001 




154 


9A 








12-11-8-2 


1001 1010 




155 


9B 








12-11-8-3 


1001 1011 




156 


9C 


SIO 






12-11-8-4 


1001 1100 




157 
158 


9D 


TIO 






12-11-8-5 


1001 1101 




9E 


HIO 






12-11-8-6 


1001 1110 




159 


9F 


TCH 






12-11-8-7 


iooi mi 




160 


A0 








11-0-8-1 


1010 0000 


CCW 


161 


Al 








11-0-1 


1010 0001 




162 
163 


A2 




8 




11-0-2 


1010 0010 




A3 




t 




11-0-3 


ioio ooii 




164 


A4 




U 




11-0-4 


1010 0100 




165 


A5 




V 




11-0-5 


1010 0101 




166 


A6 




w 




11-0-6 


1010 0110 




167 
168 


A7 




X 




11-0-7 


1010 0111 




A8 




y 




11-0-8 


luifc 1000 


CCW 


169 


A9 




z 




11-0-9 


ioio iooi 




170 


AA 








11-0-8-2 


1010 1010 




171 


AB 








11-0-8-3 


1010 1011 




172 

173 


AC 









11-0-8-4 


1010 1100 




AD 








11-0-8-5 


1010 1101 




174 


AE 








11-0-8-6 


1010 1110 




175 


AP 








11-0-8-7 


1010 1111 




176 


BO 








12-11-0-8- : 


JO .'0 0000 


CCW 


177 
178 


Bl 








12-11-0-1 


10110001 




B2 








12-11-0-2 


1011 0010 




179 


B3 








12-11-0-3 


10110011 




180 


B4 








12-H-0-4 


10110100 




181 


B5 








12-11-0-5 


1011 0101 




182 
183 


B6 








12-11-0-6 


101 1 0110 




B7 








12-11-0-7 


10110111 




184 


B8 








12-11-0-8 


1011 1000 


CCW 


185 


B9 








12-11-0-9 


10 1 1 1001 




186 


BA 








12-11-0-8-2 


ion ioio 




187 
188 


BB 








12-11-0-8-3 


1011 1011 




BC 








12-11-0-8-4 


1011 1100 




189 


BD 








12-11-0-8-5 


1011 1101 




190 


BE 








12-11-0-8-6 


1011 1110 




191 


BF 






12-11-0-8-7 


ion mi 





RS Format 






OpCode 



Bl 



7 8 



*3 



B 2 



11 12 



15 16 



19 20 



D 2 



31 



R1,R3,D2(B2) 
R1.R3.S2 

SI Format 



BXH, BXLE, 
LM, STM 






OpCode 



78 



R1,D2(B2) 
R1,S2 



Shift 
instructions 



h 



Bl 



IS 16 



D1(B1) 
SI 

SI 12 1 A11 ot her SI Instructions 



LPSW, SSM, HIO, SIO 
TIO, TCH, TS 



19 20 



31 



- 9 



SS FORMAT INSTRUCTIONS 



Deci- 
mal 


llecfl- 




Graphic & Con- 


(2) 


Punched 


Svstem/360 




tlcci- 
mal 


Mnemonic 


trol Sy 


mbols 


7-Track Tape 
BCDIC 


Card 
Code 


8 -bit 
Code 


(3) 


BCDl'C 


EBCDIC 


192 


CO 




•y 




HAS 2 


12-0 


1100 0000 


ccw 


193 


CI 




A 


A 


1) A I 


12-1 


1100 0001 




194 


C2 




B 


B 


HA 2 


12-2 


1100 0010 




195 


C3 




C 


C 


DA 2 1 


12-3 


1100 0011 




1% 
1*37 


C4 




D 


D 


B A 4 


12-4 


11000100 




C5 




E 


E 


B A 4 1 


12-5 


11000101 




198 


C6 




F 


F 


11 A 4 2 


12-6 


11000110 




199 


C7 




G 


G 


ha 4 2i 


12-7 


11000111 




200 


C8 




H 


H 


BAB 


12-8 


1100 1000 


ccw 


201 
202 


C9 




I 


1 


BAH 1 


12-9 


1100 IO01 




CA 










12-0-9-8-2 


1100 1010 




203 


CB 










12-0-9-8-3 


1100 1011 




204 


CC 










12-0-9-8-4 


1100 1100 




205 


CD 










12-0-9-B-S 


1100 1101 




206 
207 


CE 










12-0-9-8-6 


1100 M10 




CF 










12-0-9-8-7 


new mi 




208 


DO 




i 




IJ H 2 


1 1-0 


1101 0000 


ccw 


209 


Dl 


MVN 


i 


J 


H 1 


11-1 


1101 0001 




210 


D2 


MVC 


k 


k 


B 2 


11-2 


1101 0010 




211 
212 


D3 


MVZ 


L 


L 


B 2 1 


1 1-3 


1101 0011 




D4 


NC 


M 


M 


B 4 


11-4 


1101 0100 




213 


D5 


CLC 


N 


N 


B 4 1 


11-5 


1101 0101 




214 


D6 


oc. 





O 


B 4 2 


11-6 


1101 0110 




215 


U7 


XC 


P 


P 


11 4 2 1 


11-7 


1101 0U1 




216 
217 


D8 




Q 


Q 


R 8 


U-8 


1101 1000 


ccw 


D9 




R 


R 


B 8 I 


11-9 


1101 1001 




218 


DA 










12-11-9-8-2 


1101 1010 




219 


DB 










12-11-9-8-3 


noi ion 




220 


DC 


TR 








12-H-0-8-4 


1101 1100 




221 
222 


DD 


TRT 








12-11-9-8-5 


1101 1101 




DE 


ED (4) 








12-11-9-8-6 


1101 1110 




223 


DF 


EDMK (4) 








12-11-9-8-7 


noi mi 




224 


EO 




* 




A 8 2 


0-8-2 


1110 0000 


ccw 


225 


El 










11-0-9-1 


1110 0001 




226 
227 


E2 




S 


S 


A 2 


0-2 


1110 0010 




E3 




T 


r 


A 2 I 


0-3 


1110 0011 




228 


E4 




U 


u 


A 4 


0-4 


1110 0100 




229 


ES 




V 


V 


A 4 1 


0-5 


1 110 0101 




230 


E6 




w 


w 


A 4 2 


0-6 


11 10 01 10 




231 
232 


E7 




X 


X 


A 4 2 1 


0-7 


1110 0111 




E8 




Y 


Y 


A 8 


0-8 


1110 1000 


ccw 


233 


E9 




7. 


z 


A 8 1 


0-9 


1110 1001 




234 


EA 










11-0-9-8-2 


1110 1010 




235 


EB 










11-0-9-H-3 


mo ion 




236 

237 


EC 










11-0-9-8-4 


1110 1100 




ED 










11-0-9-8-5 


1110 1101 




238 


EE 










11-0-9-8-6 


1110 1110 




239 


EF 










11-0-9-8-7 


mo nn 




240 


FO 










R 2 





mi oooo 


ccw 


241 
242 


F! 


MVO 


1 


1 


1 


1 


1 1 1 1 0001 




F2 


PACK 


2 


2 


2 


2 


nn ooio 




243 


F3 


UNPK 


3 


3 


2 1 


3 


nn oon 




244 


F4 




4 


4 


4 


4 


nn oioo 




245 


5 




5 


5 


4 1 


e. 


nn oioi 




246 
247 


F6 




6 


6 


4 2 


6 


n n ono 




F7 




7 


7 


4 2 1 


7 


Hit 0111 




24H 


FH 


ZAP (4) 


8 


8 


K 


8 


itn iooo 


ccw 


249 


F9 


T <4) 


9 


9 


8 1 


9 


1111 1001 




230 


FA 


AP (4) 








12-11-0-9-8-2 


1111 1010 




251 
252 


FO 


SP (4) 








12-11-0-9-8-3 


nn ion 




FC 


MP (4) 








12-11-0-9-8-4 


1111 1100 




253 


FD 


DP (4) 








12-11-0-9-8-5 


nn noi 




254 


FE 










12-11-0-9-8-6 


Jill 1110 




J 255 


FF 










12-11-0-9-8-7 


nn nn 





SS Format 



Op Code 



L l 



1-2 



Bl 



7 8 



11 12 



15 16 



DI(I-l,B]),D2(L2,B2)i 
Sl(Ll),S2(L2) I 

Dl(L., 1 jl),D2(B2) 
S1(L),S2 



PACK, UNPK, MVO. AP, 
CP. DP. MP. SP. ZAP 

NC, OC, XC, CLC, MVC, MVN. 
MVZ, TR, FRT. ED, EDMK 



Dl 



B 2 



19 20 



31 32 



3L^ 



35 36 



47 



PACKED DECIMAL NUMBER 


Digit 


Digit 


Digit 


ZONED DECIMAL NUMBER 


Zone 


Digit 


Zone 



Digit 


Digit 


Digit 


Digit 


Sign 



Digit 


Zone 


■ 

Digit 


Sign 


Digit 



1 - 



INPUT /OUTPUT 

CHANNEL ADDRESS WORD 



Key 







Command Address 



23 24 



34 



78 



15 16 



31 



CHANNEL COMMAND WORD 



32 



36 37 



39 40 



47 48 



55 56 



Command Code 


Data Address 





78 


is'l6 


23 24 


31 


| Flags 


fe^: 


=^^=^ 


Byte Count 


1 



63 



Refer to OPERATION CODE tables for flag bit (Bits 32-36) assignments. 
Bit 32 causes the address portion of the next CCW to be used. 
Bit 33 causes the command code and data address in the next CCW to be used. 
Bit 34 causes a possible incorrect length Indication to be suppressed. 
Bit 35 suppresses the transfer of Information to main storage. 
Bit 36 causes an interruption as Program Control interrupt 



CHANNEL STATUS WORD 










Key 





Command Add res b 


3 


4 .7 


8 


15*16 


23*24 


31 



Status 



__ 1 — 

47 48 



Byte Count 



32 



3^40 



55 56 



32 


Attention 


33 


Status modifier 


34 


Control unit end 


35 


Busy 


36 


Channel end 


37 


Device end 



38 


Unit check 


43 


39 


Unit exception 


44 


40 


Program-controlled 


45 




interruption 


46 


41 


Incorrect length 


47 


42 


Program check 





63 

Protection check 
Channel data check 
Channel control check 
Interface control check 
Chaining check 



Count: Bits 48 - 63 form the residual count for the last CCW used. 



RASD CHANNEL COMMAND CODES (See A26-5988) 












Command for CCW 


Count 


Multiple Track 
(M-T) Off 


M-T On 


8-Bit Code 
0123 4567 


Hex Dec 


Hex 


Dec 


Control 


No Op 


X 


0000 0011 


03 


03 








Release* 


X 


0001 0111 


17 


23 








Restore 


X 


00010011 


13 


19 








Seek 


6 


0000 0111 


07 


07 








Seek Cylinder 


6 


0000 1011 


0B 


U 








Seek Head 


6 


0001 1011 


IB 


27 








Sense I/O 


4 


0000 0100 


04 


04 








Set File Mask 


1 


0001 1111 


IF 


31 








Space Record 


X 


oooo mi 


OF 


15 








Transfer in Channel 


X 


xxxx 1000 


x8 








Search 


Home Address EQ 


4 (usually) 


0011 1001 


39 


57 


B9 


185 




Identifier EQ 


5 (usually) 


0011 0001 


31 


49 


Bl 


177 




Identifier HI 


5 (usually) 


0101 0001 


51 


81 


Dl 


209 




Identifier EQ or HI 


5 (usually) 


01110001 


71 


113 


Fl 


241 




Key EQ 


1 to 255 


0010 1001 


29 


41 


A9 


169 




Key HI 


1 to 255 


0100 1001 


49 


73 


C9 


201 




Key EQ or HI 


1 to 255 


01 10 1001 


69 


105 


E9 


^3 




Key & Data EQ* ] 




0010 1101 


2D 


45 


AD 


1/3 




Key & Data HI* } 


Note 1 


0100 1101 


4D 


77 


CD 


205 




Key & Data EQ or HI* > 




0110 1101 


6D 


109 


ED 


237 


Read 


Home Address 


5 


0001 1010 


1A 


26 


9A 


154 




Count 


8 


0001 0010 


12 


18 


92 


146 




Record R0 


Number 


0001 0110 


16 


22 


96 


150 




Data l 


of bytes 


0000 0110 


06 


06 


86 


134 




Key & Data 


trans- 


0000 H 10 


0E 


14 


8E 


142 




Count, Key & Data 1 


ferred 


0001 1110 


IE 


30 


9E 


158 


Write 


Home Address 
Record R0 


5 (usually) 
8+KL+OL of 


0001 1001 


19 


25 










R0 


00010101 


15 


21 








Count, Key & Data 


8+KL-tOL 


0001 1101 


ID 


29 








Special Count, Key & Data* 


8+KL+OL 


0000 0001 


01 


01 








Data 


DL 


0000 0101 


05 


05 








Key & Data 


KL& DL 


0000 1101 


0D 


13 






* Special Feature Note 1. Includes mask bytes 


In search argument. 








M-T On = M-T Off except, during Search and Read b 


t = 1 in M-T On. 








x ■ not significant; KL = Key Length DL = Data Length; 


EQ= Equal; HI = High 
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CHANNEL COMMAND CODES 



Device 



Command for CCW 



8-Bit Code 



12 3 4 5 6 7 



Hex 



Dec 



1052 



Read Inquiry BCD 

Read Reader 2 BCD 

Wrlce BCD, Auto Carriage Return 

Write BCD, No Auto Carriage Return 

No Op 

Sense 

Alarm 



0A 
02 
09 
01 
03 
04 
0B 



10 
02 
09 
01 
03 
04 
11 



2540 



Read, Feed, Select Stacker SS Type A A 

Read Type AB 
Read, Feed (1400 compatobillty mode only) 

Feed, Select Stacker SS Type BA 

PFR Punch, Feed, Select Stacker SS Type BA 

Punch, Feed,' Select Stacker SS Type BB 



SS 


Stacker 


00 
01 
10 


Rl 
R2 
RP3 



D 


Data Mode 




1 


EBCDIC 
Column Binary 



1442 Nl 



1403 or 
1443 



Carriage 
Control 





M 


M 


M 


M 


Read 








X 




Read 


1 





X 




Read 





1 


X 




Read 


1 


1 


X 




Write 








X 




Write 


1 





X 




Write 





1 


X 




Write 


1 


1 


X 




Control 


1 









Control 





1 






Control 


1 


I 






Sense 






1 


1 


Sense 









1 



Eject and SSI 

Eject and SSI 

Eject and SS2 

Eject and SS2 

SSI 

Eject and SSI 

SS2 

Eject and SS2 

Eject and SSI 

SS2 

EJ«ct and S52 

Punch diagnostic 

Read diagnostic 

X - means EBCDIC mode 

X ■ 1 means Column Binary Mode 



Read 

Write 

Control 

No Op 
Sense 



Write. No Space 

Write, Space 1 After Print 

Write, Space 2 After Print 

Write, Space 3 After Print 

Write, Skip To Channel N After Print 

Diagnostic Read (1403) 

Diagnostic Read (1443) 

Teat I/) 

Sense 





1 


1 
N 







Space 1 Line Immediately 
Space 2 Line Immediately 
Space 3 Line Immediately 
Skip To Channel N Immediately 
No Op 



I 

1 

N 




C 


H 


A 


N 


Channel 




C 


H 


A 


N 


Channel 











1 


1 





1 


i 


1 


7 








1 





2 




1 











8 








1 


1 


3 




1 








1 


9 


u 


1 








4 




I 





1 





10 





1 





1 


5 




1 





1 


1 


11 


o 


1 


* 





6 




1 


1 








12 



2400 Transfer in Channel 

Tape* Sense 

Read Backward** 

Write 

Read 

Control 

Mode Set 

* 9 track op. forces 800 BPI and odd parity;also. it overrides 
7 track but does not reset 7 track. Load/Sys Reset forcea 
7 track to 800 BPI, odd parity, data converter on, translator off 



c 


c 


c 


Control 
Codes 


Hex 


Dec 











REW 


7 


7 








1 


RUN 


OF 


15 





1 





ERG 


17 


23 





1 


1 


WTM 


IF 


31 


1 








BSR 


27 


39 


1 





1 


BSF 


2F 


47 


1 


1 





FSR 


37 


55 


1 


1 


1 


FSF 


3F 


63 



D 


D 


7 Track 
Density 




1 
1 



1 

1 


200 
556 
800 

800 



SB 



01 
09 
11 
19 

02 
06 
00 
04 

0B 
13 
IB 

0.1 



08 
04 
0C 
01 
02 



01 
09 
17 
25 

02 
06 
00 
04 

11 
19 

27 

03 



08 
04 
12 
01 
02 



♦•Overrides Data 
Converter On 



M M M (Mode Modifiers) 



_0_0_0 No Op _ 

_P_0_l~NgIyje£ _ ~ 
-P - 1 - _ R ei«_CondUlon_ 
-0_1_1 _Nine-treck only 

J _0_ 0_ _ ~ — 

_1_0_1_ ~ 

J _1_0_ Reset Condition 

111 - - — - 



« 



X 



a 
V 

> 






h 

01 

4-1 
IH 

s 

(0 

& 






2 

a 
"3 

s 



e 

(St 



X 

~k_ 
x 



12 



NEW CCB FORMAT 



5 6 



8 9 10 11 12 13 14 15 16 - 23 



COUNT 

i 


TRANS 
INFO 


CSW 
STATUS 


SYM- 
BOLIC 
UNIT 
AD- 
RESS 


X'00' 


CCW 

AD- 
DRESS 


X'20' 

X'40' 

X'80' 

NOTE 


CSW/ 

CCW 

ADDR 

OR 
CHAN 
APND 


— — — — — 

SENSE 
CCW 



/ 






BYTE 2 










TRAFIC 

BIT 


FLAG 
/* 


UNREC 
I/O 
ERR 


ACCEPT 
UNREC 

I/O 

ERR 


RETURN 

DASD 

DATA 

CHECKS 

OR 2671 

ERROR 


POST 
DEV 

END 


RETURN 
TAPE 
2540P 
DASD 
ERR 


USER 

ERROR 

RTN 



BYTE 3 



I 



DASD 
COUNT 
DATA 
CHECKS 



DASD 
TRACK 
OVER- 
RUN 



DASD 

END OF 

CYL 



2540pEQ 

CHECK 

TAPE OR 

DASD RD 

ERROR 



QUESTL 
COND 



UNUSED 



CH.90V- 

FLOW 

PRDASD 

VERIFY 
ERROR 



jCOMMNDI 
CHAIN 
RETRY 
FROM 

m 



o 



i 



ccb - name 



CCB 



SYSxxx, ccw-name,X'nnnn', sense-address 



NOTE: X'20* - SENSE INFO DESIRED, X'40' = T/P, X'80' - ERP USING CCB 



Byte 



Bit 



Traffic Bit (WAIT) 



Condition Indicated 



1 (ON) 



I/O Completed. Nor- 
mally set at Channel 
End. Set at Device 
End If Bit 5 is ON . 



(OFF) 



I/O Requested 
and not com- 
pleted. 



On Values 
for Third 
Operand in 
CCB Macro 



Mask for 
Test Under 
Mask 
Instruction 



X'80' 



1 End of File on 
System Input 



/* or /& on SYSRDR 
orSYSIPT. Byte 4, 
Unit Exception Bit Is 
also ON . 



X'40' 



2 Unrecoverable I/O 
Error 



I/O error passed back 
due to program option 
or operator option 



No program or 
opera cor option 
error was pas- 
sed back 



X'20* 



3* Accept Unrecover- 
able I/O Error 
(Bit 2 is ON) 



Return to User after 
Physical IOCS A c - 
tempts to correct 
I/O Error. + 



Operator Op- 
tion: Dependent 
on the Error 



X'1000' 



X'iO' 



4* 2671 Data Check 



Operator Options: 
Ignore, Retry, or 
Cancel 



Operator Op- 
tion: Retry or 
Cancel 



x'osoo" 



X'08' 



Return an, DASD 
Data Checks 



Return to User 



5* Poet at Device End 



Device End Condition 
will be posted i.e. , 
byte 2, bit nnd byte 

3, bits 3 and 6 set at 
Device End. Also byte 

4, bit 5 is set. 



Device End 
Conditions will 
not be posted. 
Traffic Bit is 
set at Channel 
End. 



X'0400' 



X'04 ! 



Return: Uncorrec- 
table tape read data 
check; 2540 or 2520 
punch equipment 
check; or DASD read 
or verify data check. 
(Data checks on count 
not returned . ) 



Return to user after 
physical IOCS at 
tempts to correct 
tape or DASD error. 



Operator Op- 
tion : Ignore or 
Cancel for 
Tapes and pun- 
ches. Retry or 
cancel for 
DASD. 



X'0200' 



X'02' 



7* User Error Routine 



User will handle 
error recovery 
(Test Bit 2). n 



A Physical IOCS 
Error routine 
will be used. 



X'0100" 



x'or 



Data check in DASD 
count Field. 



Yes-Byte 3, bit 3 is 
OFF; Byte 2, bit 2 
is ON. 



No 



X'80' 



DASD Track over- 
run. 



Yes 



No 



X'40' 



End of DASD 
Cylinder 



Yes 



No 



X'20' 



Tape read data 
check; 2540 or 2520 
punch equipment 
check; or any DASD 

data check. 



Operation v. is un- 
successful. Byte 2, 
Bit 2 is also ON. 
Byte 3, Bit is OFF. 



No 



X'IO' 



Questionable Con- 
dition 



Card: Unusual Com- 
mand sequence (2540) 
DASD; No record 
found . 



X*08' 



5 Unused: Must be zero 



Verify Error for 
DASD or Carriage 
Channel 9 Overflow 



Yes. (Set ON when 
Channel 9 is reached 
only if Byte 2, Bit 5 
is ON.) 



No 



X'02' 



7* Command Chain 
Retry 



Retry begins at last 
CCW executed. 



Retry begins at 
first CCW of 
channel 
program. 



X'OOOl' 



x'or 



User Option Bits. Set in CCB macro. Physical IOCS sets the other bits OFF at EXCP time 
and ON when the condtition specified above occurs. 

I/O program check, command reject, or tape equipment check will always terminate the 
program . 

User must handle all error or exceptional conditions except Channel Control Check, Inter- 
face Control Check, I/O Program Check, and I/O Protection Check. 



Sense Bytes 



Sense Bit Position 



Sense Bit Condition 



DISK- 



Byte 0, 


Bit 


Command Reject 




1 


Intervention Required 




2 


Bus Out Parity 




3 


Equipment Check 




4 


Data Check 




5 


Overrun 




6 


Track Condition Check 




7 


Seek Check 


Byte 1, 


Bit 


Data Check in Count 
(also causes Byte 0, Bit 4) 




1 


Track Overrun 




2 


End -of- Cylinder 




3 


Invalid Sequence 

(also causes Byte 0, Bit 0) 




4 


No Record Found 




5 


File Protected 

(also causes Byte 0, Bit 0) 




6 


Missing Address Marker 
(also causes Byte 0, Bit 4) 




7 


Overflow Incomplete 



Sense Bit Position 



Sense Bit Condition 



TAPE 



Command Reject 

Intervention Required 

Bus Out Parity 

Equipment Check 

Data Check 

Overrun 

Word Count Zero 

Data Converter Check 

Noice Record 

Tape Unit Status A 

(Selected unit is available) 

Tape Unit Status B 

(Selected unit is busy, 
rewinding, or switchd) 

7 Track Operation 



At Load Point 

In Write Status 

File Protected 

Tape Indicator (Status of tape 
indicate on the selected tape 
unit) 



1PL 



Request Key 



BGUOOA READY 

FUR — ~ 

COMMUNICATION 



BG1I6QA READY 

FOR 
COMMUNICATION 



± 



ARU60A READY 

FOR 
COMMUNICATION 



Stan bg 



SC Type In Job CTL 
Commands 



Type In ATTEN 
Routine Commend 



Stop bg* C ancel bg | j 



1PL 

CANCEL** 

PAUSE 



{ 



Job Btep 



PAUSE 



// JOB jobname 



rf 



U EXEC Jobstep 



® 



Cancel fl 
Cancel f2 



I 

Start fl 

State f2 



Type In Foreground ^ _ 
Initiation Command 



A 



Read (Foreground 
Initiation Command 



Foreground Initiation 
Command 



Execute Job steps 
(B. C) 



Ohven 



No active pro- 
gram InFG.BG 



Execute Foreground 
program (FG) 



PAUSE JOBCTL\ VP c 
PAUSE ATTEN XY fcb 
.// PAUSE 



NO 



NO 



/k 
ED] card 



YES 



BG EOJ Jobname 



_^_J 



Fl 



P„ EOJ program name 



* available only when type in "STOP BG'. 

** cancel bg: cancel execution of current 
job and enter next Job. 

cancel fl, f2: A VORTfl, f2. 

*** "etop BG" is given to only Job control 
commands . 



SYSTEM TO OPERATOR MESSAGE 



FOREGROUND INITIATION EXAMPLES 

Initiating a foreground program in an environment where there is one card 
reader and it is used for the batch job stream (SYSRDR/SYSIPT). 

1. At IPL time: 

a) Do not assign SYSRDR or SYSIPT or any logical unit to the card 
reader at System Generation. 

b) If possible, System Generate all Physical Unit Blocks needed for 
operating (DVCGEN macro). 

c) Place JCL statements for foreground program in the card reader 
followed by batch jobs and ready the reader. 

d) IPL from SYSRES. 

e) Press 1052 (SYSLOG) Attention. 

f) Type in any required ADD and DEL commands on SYSLOG. 

g) Type in SET command on SYSLOG. 
h) Type in STOP command. 

i) Press 1052 (SYSLOG) Attention. 

j) Requesx Foreground Initiator. Type In "START Fn. " 

k) Assign card reader to SYSFGI. Type In "READ X'cuu'. " 

1) After Foreground Initiation has completed (EXEC card read), press 
1052 (SYSLOG) Attention and enter command "START BG. " 

m) Type in "ASSGN SYSRDR, X'cuu" " (or SYSIN) with the card reader 
address. Type in ® . Batch processing will commence. 

2. Between Jobs or Job Steps (unplanned): 

a) Press 1052 (SYSLOG) Attention and enter PAUSE and ® commands. 

b) When PAUSE occurs: Type in "ASSGN SYSRDR, UA" or if both RDR 
and IPT, "ASSGN SYSIN, UA" and "STOP. " 

c) Place JCL statements for foreground program in card reader followed 
by batch jobs not yet read and ready the reader. 

d) Execute steps (i) through (m) under procedure 1 above. 

3. Between Jobs or job Steps (planned): 

a) Place between Jobs or Job Steps in the card reader the following: 
"ASSGN SYSRDR, UA" (or SYSIN) followed by the JCL statements for 
the foreground program. 

b) When Job Control encounters the unassignment and requests operator 
commands, execute steps (h) through (m) under procedure 1 above. 

4. Asynchronously: 

a) Press 1052 (SYSLOG) Attention. 

b) Type in "START Fx" command. 

c) Type in all JCL statements for foreground program. 

Initiating a foreground program In an environment where there is a card reader 
available exclusively for the foreground program : 

a) Place JCL statements for foreground program in card reader. 

If the program is to use the card reader, its data cards can follow 
the EXEC card (see Note). Ready the card reader. 

b) Press 1052 (SYSLOG) Attention. 

c) Request Foreground Initiator. Type in "START Fn. " 

d) Assign card reader to SYSFGI. Type in "READ X'cuu*. " 

NOTE: JCL Statements can assign the card reader used to input 
initiation commands to the foreground program as a 
SYSnnn unit. 
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JOB CONTROL COMMANDS 



Operation 


Operand 


Remarks 


ASSGN 


SYSxxx, address /,X'as'l 
I, ALT J 


SYSxxx: can be SYSRDR 




SYSIPT 




C.TEMP3 


SYSIN 

SYSLST 

SYSPCH 

SYSOUT 

SYSLOG 

SYSLNK 

SYS000-SYS244 

address: can be X'cuu', UA, or IGN 

X'cuu': c = 0-6 

uu = 00 - FE (0 - 254) 
in he" 

UA: unassign 

IGN : unassign and ignore 

X'ss': used for magnetic tape only 

Bytes Trans - 
per late Convert 
as Inch Parity Feature Feature 

10 200 odd off on 
20 200 even off off 
28 200 even on off 
30 200 odd off off 
38 200 odd on off 
50 556 odd off on 
60 556 even off off 
68 556 even on off 
70 556 odd off off 
78 556 odd on off 
90 800 odd off on 
A0 800 even off off 
A8 800 even on off 
B0 800 odd off off 
B8 800 odd on off 
CO 800 single density 9 track tape 
CO 1600 dual density 9 track tape 
C8 800 dual density 9 track tape 

ALT: specifies alternate unit 

TEMP: assignment for logical unit will be 
destroyed by next JOB statement 




r.X'cuu'C.X'ss'TI 


SYSxxx: for 2311 - SYSIN 






UA 




SYSRDR 


CLOSE 


SYSxxx 


.IGN 
L.ALT 


■ 


SYSIPT 
SYSPCH 






SYSLST 






for magnetic tape - 






SYSPCH 






SYSLST 






SYSOUT 






SYSOOO-SYS244 






X'cuu', X'ss', UA, IGN, ALT: values as 






described in ASSGN command 


DVCDN 


X'cuu" 


X'cuu': c = 0-6 

uu = 00-FE (0-254) in hex 
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Operation 


Operand 


Remarks 


DVCUP 


X'cuu' 


X'cuu': c = 0-6 

uu = 00-FE (0-254) In hex 


MTC 


opcode, ( X'cuu''} Cnn] 
iSYSxxtfl 


opcode: BSF, BSR, ERG, FSF , FSR, 
RUN, REW, or WTM 






X'cuu': c = 0-6 

uu a 00-FE (0-254) In hex 

SYSxxx: any logical unit 

nn: decimal number (01 -99) 


RESET 


< 


SYS 
PROG 
ALL 
SYSxxx 


■ 


Resets specified I/O device assignments 


STOP 


blank 


Stops background program processing 


L1ST10 


« 


SYS 
PROG 
Fl 
F2 
ALL 
SYSxxx 
UNITS 
DOWN 
UA 
I X'cuu' . 


m 


Causes listing of specified I/O 
assignments 


LOG 


blank 


Causes logging of job control statements 
arid foreground initiation commands on 
SYSLOG 


NOLOG. 


blank 


Suppresses logging of job control state- 
ments and foreground initiation commands 
on SYSLOG 


CANCEL 


blank 


Cancels execution of background job 


PAUSE 


Cany user comment} 


Causes pause at end of current job step 


MAP 


blank 


Causes a map of areas in main storage to 
be printed on SYSLOG 


ALLOC 


[Fl *nk C,F2 = nk}} 
lF2 = nk C.F1 =nk3l 


Allocates foreground program areas 
Value of n is an even number 


UCS 


SYSxxx, phasename 
C.FOLD] C. BLOCK} 
CNULMSG] 


Causes the 240-character universal 
character set contained in the core image 
library phase specified by phasename to 
be loaded as buffer storage in the IBM 
2821 Control Unit. 

SYSxxx must be assigned to a 1403 Printer 
with the UCS feature. 


HOLD 


(Fl C,F2]\ 
IF2 C.FUJ 


Causes assignments for foreground logi- 
cal units to be held across jobs. 


RELSE 


(Fl C.F2JL 

iF2 c.Fnr 


Causes foreground logical units to be 
unassigned at EOJ . 


UNA 


IFl C.F2DI 

IF2 t,Fiy 


■ 
Causes immediate unassignment of fore- 
ground logical units. 
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Operation 


Operand 


Remarks 


SET 


CDATE=valuelJ C,CLOCK= 
value 2] 
C,UPSI=value3] 
C,LINECT=value 4.) 
t,RCLST=value5] 
C,RCPCH=value6] 


value 1 : in one, of the following formats 

mm/dd/yy or dd/mm/yy 

mm: month (01-12) 
dd: day (01 -31) 
yy: year (00-99) 

value 2: in the following format 

hh/mm/sa 

hh: hours (00-23) 
mm: minutes (00-59) 
ss: seconds (00-59) 

value 3: 0, 1 , or X 

value 4: standard number of lines for 
output on each page of SYSLST 

Value 5: decimal number indicating 
minimum number of SYSLST 
disk records remaining to.be 
written before operator warning 

value 6: decimal number indicating 
minimum number of SYSPCH 
disk records remaining to be 
written before operator warning 


® 


blank 


® is alter code 5 



ATTN COMMANDS 



Operation 


Operand 


Remarks 


PAUSE 


[any user comments} 


Causes pause at end of current Job step 


CANCEL 


[SO] 

Fl 
lF2- 


■ 


Cancels execution of current job in specified 
area 


LOG 


blank 


Causes logging of job control statements and 
foreground initiation commands on SYSLOG 


NOLOG 


blank 


Suppresses logging of Job control statements 
and foreground initiation commands on 
SYSLOG 


MAP 


blank 


Causes a map of areas in main storage to be 
printed on SYSLOG 


ALLOC 


IF1 =nk C,F2 = nk]l 
lF2 = nk C,Fl = nk3( 


Allocates foreground program areas 
Value of n is an even number 


START 


IE) 


Initiates a background or foreground 
program 


MSG 


IE! 


Transfers control to foreground program 
message routine 


TIMER 


t-F2J 


Causes interval timer support to be given to 
program specified 


® 


blank 


®is alter code 5 
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FOREGROUND INITIATION COMMANDS 



Operation 


Operand 


Remarks 


READ 


X'cuu' 


X'cuu': c = 0-6 

uu = OQ-FE (0-254) in hex 

Note: Device must be a card reader 


LISTIO 


- 


BG ) 
Fl 
F2 
UA 
I ALL 


> 


Causes listing of specified I/O assignments 


ASSGN 


SYSnnn, address 
I.X'ss'l 
I, ALT J 


SYSnnn: can be SYSOOO, SYS001 , . . . 

address: can be X'cuu* or 1GN 

X'cuu": c = 0-6 

uu = 00-F E (0-254) in hex 

1GN: unas sign and ignore 

X'ss': used for magnetic tape only 
ALT: specifies alternate unit 


VOL 


SYSnnn, filename 


SYSnnn: can be SYSOOO, SYS001 
filename: one to seven alphabetic 
characters 


DLAB 


'label fields 1-3' 
xxxx, yyddd, yyddd, 
'system code' C»type} 




XTENT 


type, sequence, lower, 
upper, 'serial no. " 
SYSxxx CB2D 




TPLAB 


"lable fields 3-10* 




TPLAB 


'lable fields 3-10 label 
fields 11-13' 




CANCEL 


blank 


Cancels initiation of foreground program 


EXEC 


progname 


progname: one to eight alphameric 
characters 


LOG 


blank 


Causes logging of Job control statements 
and foreground initiation commands on 
SYSLOG. 


NOLOG 


blank 


Suppresses logging of Job control state- 
ments and foreground initiation commands 
on SYSLOG. 


HOLD 


1 Fl [,F2Di 

1 F2 c.fo 


Causes assignments for foreground logical 
units to be held across Jobs. 


RELSE 


f Fl C.F231 
I F2 C.FO 


Causes foreground logical units to be 
unas signed at BOJ . 


UNA 


1 Fl C.F2D1 
I F2C.FOI 


Causes immediate unassignment of fore- 
ground logical units. 


© 


blank 


® is alter code 5 
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JOB CONTROL STATEMENTS 



Name 


Operation 


Operand 


72 


Remarks 


// 


JOB 


Jobname 


* 


jobname: one to eight alphameric 
characters 


// 


EXEC 


[progname) 


* 


progname: one to eight alphameric 
characters. Used only if the program 
is in the core image library. 


// 


ASSGN 


SYSxxx, address 

B:£3'0 


V 


SYSxxx: can be SYSRDR 
SYSIPT 
SYSIN 
SYSPCH 
SYSLST 
SYSLOG 
SYSLNK 
SYS000-SYS244 

address: can be X'cuu', UA, or IGN 

X'cuu': c = 0-6 

uu = 00-FE (0-254) 
in hex 

UA: unassign 

IGN: unassign and ignore 

X'ss': used for magnetic tape only 

Trans - 
Bytes late Convert 
ss per Inch Parity Feature Feature 

10 200 odd off on 
20 200 even off off 
28 200 even on off 
30 200 odd off off 
38 200 odd on off 
50 556 odd off on 
60 556 even off off 
68 556 even on off 
70 556 odd off off 
78 556 odd on off 
90 800 odd off on 
A0 800 even off off 
A8 800 even on off 
B0 800 odd off off 
B8 800 odd on off 
CO 800 single density 9-track type 
CO 1600 dual density 9-track type 
C8 800 dual density 9-track type 

ALT: specifieB alternate unit 


// 


RESET 


[SYS 
, PROG 
ALL 




¥ 


Resets 1/0 device assignments 
















I SYSxxx 








// 


DATE 


mm/dd/yy 

or 
dd/mm/yy 


P 


mm: month (01 -12) 
dd: day (01-31) 
yy: year (00-99) 


// 


UPSI 


nnnnnnnn 


P 


n: 0, 1, or X 


// 


VOL 


SYSxxx, filename 


P 


SYSxxx: can be SYS000-SYS244 

filename: one to seven alphabetic 
characters 



Name 



Operation 



Operand 



72 



Remarks 



// 



DLAB 



'label fields 1-3' 
xxxx, yyddd, 
yyddd, 'system 
code' type} 



•label fields 1-3': 



// 



XTENT 



type, sequence, 
lower, upper, 
'serial no. ', 
SYSxxx [,B 2 D 



first three fields of 
Format 1 DASD file 
label. Is a 51 -byte 
character string, 
contained within 
apostrophes and fol- 
lowed by a comma. 
Enttre 51 -byte field 
must be contained in 
the first of the two 
statements. 
Field 1 is the file 
name (44 -byte alpha- 
meric); field 2 is the 
format identifier (1- 
byte numeric); filed 
3 is the file serial 
number (6-byte 
alphameric). 



c: any non- blank character in column 72 

xxxx: volume sequence number (4-digit 
numeric). Must begin in column 
16 of the continuation statement. 
Columns 1-15 are blank. 

yyddd , yyddd: file creation date followed 
by file expiration date. 
Each is 5 -digit numeric. 

'system code' : not required. When used, 
a 13-character string, 
within apostrophes. 

type: SD, DA, ISC, or ISE. If omitted, 
SD is assumed. 



type: 1 for data area (no split cylinder) 
2 for overflow area (for indexed 

sequential file) 
4 for index area (for indexed 
sequential file) 
128 for data area (split cylinder) 

sequence: sequence number of extent 

within multi-extent file. Can 
be to 255. 

lower: lower limit of extent in the form 
B l c l c l c 2 c 2 c 2HlH2H2 where: 

Bi = for 2311; 0-9 for 2321 
CiCi = 00 for 2311; 0-9 for 2321 
C2C2C2= 000-199 for 2311; 
000-009 for 2321 
Hi so for 2311; 0-4 for 2321 
H2H2- 00-09 for 2311; 00-19 for 
2321 

Note that the last 5 strips of subcell 19 
are reserved for alternate tracks for 
2321. 

upper: upper limit of extent in the same 
form as for lower limit. 

'serial no. ': 6- alphameric -chracter 
volume serial number 
contained within apostro- 
phes. 

SYSxxx: can be SYS000-SYS244 



J I B2: for 2311; 0-9 for 2321 



Name 


Operation 


Operand 


72 


Remarks 


// ' 


TPLAB 


'lable fields 3-10' 


¥ 


'label fields 3-10': Indicated fields of 

the standard tape file 
lable. A 49 -byte 
character string, 
contained within 
apostrophes . 


// 


TPLAB 


'label fields 3-10 
lable fields 11-13' 


c 


'lable fields 3-10: same as above 

C : any nonblank character in column 72 

label fields 11-13': 20-character direct 

continuation of the 
same character 
string begun with 
fields 3-10 (no 
blanks, apostro- 
phes, or commas 
separating) 


// 


LBLTYP 


(TAPEC(nn):i 
iNSD (nn) 1 


V 


TAPE: used when tape files requiring 
label information are to be pro- 
cessed and no nonsequential disk 
files are to be processed. 

(nn): optional and is present only for 
future expansion (it is ignored by 
Job Control) 

NSD: nonsequential disk files are to be 
processed 

(nn): largest number of extents per 
single file 


// 


RSTRT 


SYSxxx, nnnn 


* 


SYSxxx: symbolic unit name of the 

device on which the checkpoint 
records are stored. Can be 
SYSO00-SYS244. 

nnnn: four character identification of 
the checkpoint record to be used 
for restarting 


// 


LISTIO 


f -\ 
SYS 

PROG 

Fl 

F2 

ALL 

SYSxxx 

UNITS 

DOWN 

UA 

X'cuu' 
V. > 


i 


V 


Causes listing of I/O assignements on 
SYSLST 


// 


MTC 


opcode, SYSxxx 
C.niO 


V 


opcode: BSE, BSR, ERG, FSF, FSR, 
REW, RUN, orWTM 

SYSxxx: any logical unit 

nn: decimal number (01-99) 



Name 


Operation 


Operand 


72 


Remarks 


// 


OPTION 


optional 
C, option 2 ) 


** 


option: can be any of the following 

LOG Log control statements on 
SYSLST 

NOLOG Suppress LOG option 

DUMP Dump registers and main 
storage on SYSLST in the 
case of abnormal program 
end 

NODUMP Suppress DUMP option 

LINK Write output of language 
translator on SYSLNK for 
linkage editing 

NOLINK Suppress LINK option 

DECK Output object module on 
SYSPCH 

NODECK Suppress DECK option 

LIST Output listing of source 
module on SYSLST 

NOLIST Suppress LIST option 

LISTX Output listing of object 
module oh SYSLST 

NOLISTX Suppress LISTX option 

SYM Punch symbol deck on 
SYSPCH 

NOSYM Suppress SYM option 

XREF Output symbolic cross- 
reference list on SYSLST 

NOXREF Suppress XREF option 

ERRS Output listing of all errors 
in source program on 
SYSLST 

NOERRS Suppress ERRS option 

CATAL Catalog program or phase 
in core image library after 
completion of Linkage 
Editor run 

STDLABEL Causes all sequential disk 
or tape labels to be written 
on the standard label track 

USRLABEL Causes all sequential disk 
or tape labels to be written 
on the user label track 

48C 48-character set 

60C 60-character set 


// 


PAUSE 


[comments} 


1* 


PAUSE statement is always printed on 
1052 (SYSLOG). If no 1052 is available, 
the statement is Ignored. 


/* 


Ignored 


ignored 


*» 


Columns 1 and 2 are the only columns 
checked. 


/& 


ignored 


ignored 


P 


Columns 1 and 2 are the only columns 
checked. 


* 




comments 


"■ 


Column 2 must be blank. 



JOB CONTROL (Sample) 



COMPILE AND GO 



JOB SAMPLE 
OPTION LINK, DUMP 

(PHASE card) 
EXEC ASSEMBLY 

(ASSEMBLER source deck) 

(ENTRY card) 
EXEC LNKEDT 
ASSGN for uaer program) 
EXEC 
(Data for user object program) 

PAUSE 

■ - p, LOAD AND GO 

OPTION *1QDUMP, LINK 
.PHASE card 
. INCLUDE ABC 
\ INCLUDE XYZ 
f INCLUDE 
\ (Object deck to be included) x 

■■-A £$&*** 



// 
// 

// 

/* 

// 

(// 

// 

/• 

// 



// 



// 



// 
// 

/• 

// 



£NTR¥- 
EXEC LNKEDT 
"EXEC "■ 

(Data for user object program) 



PAUSE 



SPOOL UTILITY (COMPILE & CATAL) 

// JOB SOL (job name) 
// OPTION CATAL 

PHASE FGPCT, + 0, NO AUTO (FGPCT=program name) 
// EXEC ASSEMBLY 

START START 

INCARD 

OUTAPE BUFSIZ=800 

END 

/* 

// EXEC LNKEDT 

/& 



PHYSICAL IOCS (SAMPLE) 



START 
X 


START 

BALR 

USING 

EXCP 

WAIT 




5,0 

*,5 

A 

A 


A 

B 

N 

M 

INPUT 

OUTPUT 


EXCP 

WAIT 

B 

CCB 

CCB 

CCW 

CCW 

DC 

DC 

END 


B 

B 

X 

SYS004.N 

SYS005.M 

2,1NFUT,X'20\80 

1,OUTPUT,X'20',80 

CLSO'O" 

CL80'0' 

START 

PHASE CARD FORMAT 


PHASE 


Prog. name, origin, NOANTO 




1 . 


SYMBOL [(Pfl ASE)] + relocation 




2 . 






3 . 






4 . 


ROOT 




5 . 






6 . 


F-0& L/M£l ^\4ca«tNG, 



UTILITY SAMPLE 

D - P 
/ JOB DOS 

/ ASSGN SYSIPI,X'00C' 
/ ASSGN SYS0O0,X'191' 
/ ASSGN SYSOOS.X'OOE' 
/ VOL SYSOOO.UIN 

/ DLAB 'BOS UTILITYbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 1000000', bbbbbbbbbC 
bbbbbbbbbbbbbbbOOO 1 , 66 100 , 66 100 , ' 0000000000000 ' 
/ XTENT 1,000, 000111000,000121009,' 000000', SYSOOO 
/ EXEC DKPR 

/ UDP TD,FF,A-(80,8O),B»(132),OC,Sl,Py,Rl 
/ END 

C - T 
/ JOB COTOTP 
/ ASSGN SYS004,X'00C 
/ ASSGN SYS005,X'182' 
/ UPSI 1010 
/ EXEC CDTP 

/ OCT TC,FF,A=(80,80),B-(80,80),Il,ON 
/END 

C - T (STANDARD LABEL) 
/ JOB COTOTP 
/ ASSGN SYS004,X'00C' 
/ ASSGN SYS005,X'181' ,X'68' 
/ UPSI 1000 
/ VOL SYS005,U0UT 

/ TPLAB 'ASDFGBVCXZBGNHMJK11111100010001000101 66313 66313' 
/ EXEC CDTP 

/ OCT TC,FF,A=(80,80),B=(80,80),11,ON 
/ END 

T - P (STANDARD LABEL) 
/ JOB CDTOPR 

/ ASSGN SYS004,X'181\X'68' 
/ ASSGN SYS005,X'OOE' 
/ UPSI 0010 
/ VOL SYS004.UIN 

/ TFLA3 'ASDFGBVCXZBGNHMJK11111100010001000101 66313 66313' 
/EXEC TPPR 

/ UTP TD,FF,A-(80,80),B=(120),IN,OC J SI,PY,RI 
/ END 
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SORT/MERGE SAMPLE 'CONTROL CARDS 

DISK SORT 

SAMPLE 1 INPUT-DISK, WORK-DISK, OUTPUT-DISK 
// JOB DOSORT 
// ASSGN SYS004,X'191' 
// ASSGN SYSO05,X'191' 
// ASSGN SYS006,X'191' 
// VOL SYS004,FILEA 

// DLAB 'BPS UTILITYbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbblO0OOO0',bbbbbbbbbC 
bbbbbbbbbbbbbbbOOOl , 66 100 , 66100 , ' 0000000000000 ' 
// XTENT 1,000, 000001000, 0000 10009/ 000000 '.SYS004 
// VOL SYS006, FILED 

// DLAB 'BOS UTILITYbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbblOOOOOO 1 ,bbbbbbbbbC 
bbbbbbbbbbbbbbbOOOl , 66 100 , 66 100 , ' 0000000000000 ' 
// XTENT 1,000, 000111000, 000121009, '000000' ,SYS006 
// VOL SYS005.FILEW 

// DLAB 'BWS UTILITYbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 1000000 ' ,bbbbbbbbbC 
bbbbbbbbbbbbbbbOOOl, 66100,66100, '0000000000000' ,DA 
// XTENT 1,000,000050000,000100009/000000' ,SYS005 
// EXEC DSORT 

SORT FIELDS=(3,1,D),FORMAT=B1,FILES=1,SIZE-200 

RECORD TYPE-F,LENGTH=(80,,80) 

INPFIL INPUT-D,BLKSIZE-(80,X) 

OUTFIL BLKSIZE=80,OUTPUT«D 

OPTION PRINT, LABEL=(S,S) 

END 

SAMPLE 2 INPUT-TAPE , WORK-DISK, OUTPUT-TAPE 
// JOB SMPL 

// ASSGN SYSOOl.X'ISO' ,X'90 r 
// ASSGN SYS002,X'270' 
// ASSGN SYS003,X'182' 
// ASSGN SYS004,X'183' 
// ASSGN SYS006,X"190' 
// ASSGN SYS007,X'191' 
// VOL SYS006 S FILEW 

// DLAB 'DISK WORK FILEbbbbbbbbbbbbbbbbbbbbbbbbbbbbbblllllll" .bbbbbbbbbX 
bbbbbbbbbbbbbbbOOOl, 66311, 66311, 'DOSbbbbbbbbbb* ,DA 
// XTENT 1,0, 000151000, 000198009,' 111111', SYS006 
// XTENT 1,1,000001000, 000198009,' 111111', SYS007 
// EXEC DSORT 

RECORD TYPE-F, LENGTH- (80,, 80) 

SORT FIELDS* ( 1 , 10 , A, 11 , 5 , A) , F0RMAT-B1 , FILES«3 , SIZE-6000 

INPFIL INPUT-T,VOLUME-(1,1,1),BLKSIZE=(800,X), BYPASS 

OUTFIL BLKSIZE-800 , OUTPUT-T , OPEN«RWD , CLOSE-RWD 

OPTION PRINT, STORAGE»32000,LABEL-(U,U) 

END 



7ft - 



TAPE SORT 

SAMPLE 1 
// JOB SORT1 
// ASSGN SYS001,X'182* 
// ASSGN SYS002,X'180' 
// ASSGN SYS003,X'182' 
// ASSGN SYS004,X'181' 
// ASSGN SYS005,X'183' 
// ASSGN SYS006,X'180' 
// EXEC TSRT 

SORT FIELDS-(7,2,A,14,6,A,64,l,A,ll,2,A,33,l,A),FORMAT=BI,WORK=4 

RECORD TYPE=P, LENGTH (84, ,84) 

INPFIL VOLUME-1,BLKSIZE-(1680,X) 

OUTFIL BLksiZE-1680 

OPTION PRINT, LABEL-(U,U,U) 

END 

SAMPLE 2 TAPE DRIVE-4 (UNLABEL) 
// JOB SORTSMPL 
// ASSGN SYS002,X'181',X'90' 
// ASSGN SYS002,X'180' ,ALT 
// ASSGN SYS00i,X'270' 
// ASSGN SYS003,X'270' 
// ASSGN SYS004,X'182' 
// ASSGN SYSOOS.X'm' 
// EXEC TSRT 

SORT FIELDS-(75,2 J A,40,12,A,l > 2,A),FORMAT»BI,WORK-3 

RECORD TYPE-F,LENGTH=120 

INPFIL VOLUMES, BLKSIZE- (960, X) ,OPEN=RWD 

OUTFIL BLKSIZE-960 , CLOSE-RWD 

OPTION LABEL- (U,U,U), PRINT 

END 

SAMPLE 3 TAPE DRIVE-4 (STANDARD LABEL) 
// JOB DOS TAPE SORT 
// ASSGN SYSOOl.X'180 1 ,X'68' 
// ASSGN SYS002,X' 180' ,X' 68' 

// assgn sYsoos.x'm'.x'es 1 

// ASSGN SYSO04,X' 182', X' 68* 

// ASSGN SYS005,X'183' ,X'68 r 

// ASSGN SYS006,X'184\X , 68' 

// VOL SYS002,FILEA 

// TPLAB 'LOAN-SUMbbbbbbbbbOOOeSSOOOlOOOlOOOlOl 66180 66185' 

// VOL SYS001, FILED 

// TPLAB 'LOAN-SUMbbbbbbbbb000888O001O001000101 66180 66185' 

// EXEC TSRT 

SORT FIELDS-(5,9,A,l,4,A,19,24,A),FORMAT-81,WORK«4 

RECORD TYPE-F,LENGTH=(200,200,200) 

INPFIL VOLUME-1,BLKSIZE-(2000,X) .BYPASS, CLOSE-UNLD 

OUTFIL BLKSIZE-2000 

OPTION LABEL- ( S , S , S) , PRINT 

END 
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FORMAT OF LANGUAGE TRANSLATOR OUTPUT CARDS AND THE 
USER REPLACE CARD 



ESD card 



RLDcard 



1 


Multiple punch (12-2-9). Indem- 
ifies this as a loader card. 


2- 4 


ESD -- External Symbol Dic- 
tionary card. 


11-12 


Number of bytea of information 
contained in this card. 


15-16 


External symbol identification 
number (ESID) of the first SD, 
PC, CM or ER on this card. 
Relates the SD, PC, CM or ER 
to a particular control secdon. 


17-72 


Variable information. 

8 positions - Name 

1 position - Type code to 
indicate SD, PC, LD, 
CM or ER 

3 positions - Assembled 
origin 

1 position - Blank 

3 positions - Length, if an 
SD-type, CM-type, or a 
PC-type. IfanLD-type, 
this field contains the 
external symbol identi- 
fication number (ESID) 
of the SD containing the 
label . 


73-80 


May be used by the programmer 
for identification. 



TXT card 



2- 4 



6- 8 



11-12 



15-16 



17-72 



73-80 



Multiple punch (12-2-9). Ident- 
ifies this as a loader card. 



TXT -- Text card. 



Assembled origin (address of 
first byte to be loaded from 
this card). 



Number of bytes of text to be 
loaded. 



External Rymbol identification 
number (ESID) of the control 
section (SD or PC) containing 
the text. 



Up to 56 bytes of text -- data 
or instructions to be loaded. 



May be used for program 
identification . 



2- 4 



11-12 



17-72 



Multiple punch (12-2-9). Ident- 
ifies this as a loader card. 



RLD -- Relocation List Dic- 
tionary card. 



Number of bytes of information 
contained in this card. 



Variable information (multiple 
items). 

a. Two positions - pointer 
(relocation identifier) to the 
relocation factor of the con- 
tents of the load constant. 

b. Two positions - pointer 
(position identifier) to the 
relocation factor of the con- 
trol section in which the load 
constant occurs. 

c< One position - flag indicating 
type of constant, as follows: 



Bits 



0-2 ignored 

3 - a non -branch type load 
constant 

I - a branch type load 

constant 

4-5 00 - load constnat length 
= 1 byte 

01 - load constant length 
= 2 bytes 

10 - load constant length 
= 3 bytes 

II - load constnat length i 

- 4 bytes 

6 - relocation factor is to 
be added 

1 - relocation factor is to 
be subtracted 
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RLD (continued) 



73-80 



• Next load constant has 
different R and P iden- 

■tifiers: therefore, both 
R and P must be present 



Next load constant has 
the same R and P iden- 
tifiers: therefore they 
are both omitted. 



Five significant bits of this byte 
are expanded in the RSERV 
printout. 

d. Three positions - assembled 
origin of load constant. 



May be used for program iden- 
tification. 



REP card 



2- 4 



5- 6 



7-12 



END card 



2- 4 



6- 8 



15-16 



17-22 



29-32 



73-80 



Multiple punch (12-2-9)* Ident- 
ifies this as a loader card. 



END 



Assembled origin of the label 
supplied to the Assembler in the 
END card (optional). 



ES1D number of the control sec- 
tion to which this END card 
refers (only if 6-8 present). 



Symbolic label supplied to the 
Assembler if this label was not 
defined within the assembly. 



Control section length (if not 
specified in last SD or PC). 



Not used. 



13 



14-16 



17-70 



71-72 



73-80 



Multiple punch (12-2-9). Ident- 
ifies this, as a loader card. 



REP -- Replace text card. 



Blank. 



Assembled address of the first 
byte to be replaced 
(hexadecimal). Must be right 
justified with leading zeros if 
needed to fill the field . 



Blank. 



External synbol identification 
number (ES1D) of the control 
section (SD) containing the text 
(hexadecimal). Must be right 
Justified with leading zeros if 
needed to fill the field. 



From 1 to 11 4 -digit hexadecimal 
fields separated by commas, 
each replacing two bytes . A 
blank indicates the end of infor- 
mation in this card. 



Blank. 



May be used for program iden- 
tification. 
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LIBRA! AN 



Function 


Unit 


Element 


Control Statements Required 


Catalog 


Core Image 
Library 


Phase 


// 
// 

// 


JOB jobname 

OPTION CATAL 

(Linkage Editor control statements) 

EXEC LNKEDT 


Relocatable 
Library 


Module 


// 
// 

/* 
/& 


JOB jobname 
EXEC MAINT 
CATALR modulename 


Source 

Statement 

Library 


Book 


// 
// 

r 


JOB jobname 

EXEC MAINT 

CATALS sublib. bookname 


Delete 


Core Image 
Library 


Phase 


7/ 

// 

/* 


JOB jobname 

EXEC MAINT 

DELETC phase 1 [.phase 2, . . 


Program 


// 
// 

/* 


JOB Jobname 
EXEC MAINT 
DELETC prog 1 . ALL 
C,prog2.ALL J 


Relocatable 
Library 


Module 


// 
// 

/* 


JOB jobname 

EXEC MAINT 

DELETR module I (, module 2, . . J 


Program 


// 
// 

/* 

/& 


JOB jobname 
EXEC MAINT 
DELETR prog 1 . ALL 
Cprog 2. ALL,.. J 


Library 


// 
// 

/* 


JOB jobname 
EXEC MAINT 
DELETR ALL 


Source 

Statement 

Library 


Book 


// 
// 

/* 
/& 


JOB jobname 
EXEC MAINT 
DELETS sublib. book 1 
C, sublib. book 2, . . .] 




Sub- 
library 


// 
// 

r 

/& 


JOB jobname 
EXEC MAINT 
DELETS sublib. ALL 


Rename 


Core Image 
Library 


Phase 


// 
// 

/* 


JOB jobname 

EXEC MAINT 

RENAMC oldname, newname 

(;,oldname, newname, . . . } 
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Function 


Unit 


Element 


Control Statements Required 




Relocatable 
Library 


Module 


// 
// 

/* 

/& 


JOB Jobname 

EXEC MAINT 

RENAMR oldname, newname 

C, oldname, newname,...] 










Source 

Statement 

Library 


Book 


// 
// 

r 


JOB jobname 

EXEC MAINT 

RENAMS sublib. oldname, sublib. 

newname C, sublib. oldname, 

sublib. newname, . . 










Condense 


Core Image 
Library 


Library 




// 
// 

r 
/& 


JOB jobname 
EXEC MAINT 
CONDS CL 










Relocatable 
Library 


Library 


// 
// 

/*' 


JOB Jobname 
EXEC MAINT 
CONDS RL 










Source 

Statement 

Library 


Library 


// 
// 

r 


JOB Jobname 
EXEC MAINT 
CONDS SL 










Libraries 


All 


// 
// 

/* 


JOB jobname 
EXEC MAINT 
CONDS CL, RL, SL 










Set 

Parameter 

for 

Automatic 

Condense 


Libraries 


Any or 
All 


// JOB jobname 
// EXEC MAINT 

CONDL lib=nnnnn C , lib=nnnnn 

r f lib=nnmu03 

/* 

/& 

Notes: Values to be substituted for lib: 
CL -- Core image library 
RL -- Relocatable library 
SL -- Source statement 
library 
Values to be substituted for 










nnnnn: 

One to five decimal digits, 
with a maximum value of 
65536. 


Reallo- 
cation 


System 


Library 


// 
// 
// 

// 
// 

/* 


JOB jobname 

VOL SYSRES, IJSYSRES 

DLAB 'DOS SYSTEM RESIDENCE 

FILE ..." 

XTENT extent information 

EXEC MAINT 

ALLOC id=cylin (tracks) (; id=cylin 

(tracks), . . 








/ 
/& 

Notes: Values to be substituted for id ; 
CL -- Core image library 
RL -- Relocatable library 
SL -- Source statement 
library 
Values to be substituted for 
cylin and tracks: 
Any integer 
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Function 



Unit 



Element 



Control Statements Required 



Display 



Punch 



Core Image 
Library 



Relocatable 
Library 



Source 
Statement 

Library 



Transient 
Directory 



System 
Directory 



Directories 



Relocatable 
Library 



Directory 



// 
// 



JOB jobname 
EXEC DSERV 
DSPLY CD 



Module 



// 
// 

/* 



JOB jobname 

EXEC RSERV 

DSPLY module 1, C, module 2, 



Program 



// 
// 






JOB jobname 

EXEC RSERV 

DSPLY prog 1. ALL C, prog 2. 

ALL,...] 



Library 



// 
// 

/* 
/& 



JOB jobname 
EXEC RSERV 
DSPLY ALL 



Directory 



// 
// 

/* 



JOB jobname 
EXEC DSERV 
DSPLY RD 



Book 



// 
// 



/* 



JOB jobname 

EXEC SSERV 

DSPLY eublib.book 1 Csublib. 

book 2... .] 



Sub- 
library 



// 
// 

/* 
/& 



JOB jobname 
EXEC SSERV 
DSPLY sublib. ALL 



Directory 



// 
// 

/• 



JOB jobname 
EXEC DSERV 
DSPLY SD 



Directory 



// 

// 

/* 



JOB jobname 
EXEC DSERV 
DSPLY TD 



Directory 



// 

// 
/* 



JOB jobname 
EXEC DSERV 



All 



// 
// 

/* 



JOB jobname 
EXEC DSERV 
DSPLY ALL 



Module 



// 
// 

/* 

/& 



JOB jobname 

EXEC RSERV 

PUNCH module 1 [.module 2, 
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Function 


Unit 


. Element 


Control Statements Required 


Punch 


Relocatable 
Library 


Program 


// JOB jobname 
// EXEC RSERV 

PUNCH prog 1. ALL [,prog 2. 

ALL...J 

/• 

/& 


Library 


// JOB jobname 
// EXEC RSERV 
PUNCH ALL 

/* 
/& 


Source 

Statement 

Library 


Book 


// JOB jobname 
// EXEC SSERV 

PUNCH sublib. book 1 C. sublib. 

book 2,.. J C, CMPRSD} 

/* 
/& 


Sub- 
library 


// JOB jobname 
// EXEC SSERV 

PUNCH sublib. ALL C , CMPRSD] 

/* 


Display 
and Punch 


Relocatable 
Library 


Module 


// JOB jobname 
// EXEC RSERV 

DSPCH module 1 C , module 2, , . .} 

/* 
/& 


Program 


// JOB jobname 
// EXEC RSERV 

DSPCH prog 1. ALL C , prog 2. 

ALL,...] 

/* 
/& 


Library 


// JOB jobname 
// EXEC RSERV 
DSPCH ALL 

/* 
/& 


Source 

Statement 

Library 


Book 


// JOB jobname 
// EXEC SSERV 

DSPCH sublib. book 1 C. sublib. 

book 2,.. J C, CMPRSD] 

/* 
/& 


Sub- 
librarj 


// JOB jobname 
// EXEC SSERV 

DSPCH sublib. ALL C CMPRSD ] 

/& 


Copy 


Core Image 
Library 


Phase 


// JOB jobname 

// ASSGN SYS002, X'cuu' 

// VOLSYS002, IJSYSRES 

// DLAB 'DOS SYSTEM RESIDENCE 

FILE. . . 
// XTENT extent information 
// ELEC CORGZ 

ALLOC id=cylin (tracks) L .id=cylin 

(tracks), . . 
* PRECEDING ALLOC STATEMENT 

REQUIRED IF NEW LIMITS TO BE 

ESTABLISHED COPYC phase 1 

f, phase 2, . . .] 

/* 
/& 
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Function 



Unit 



Element 



Control Statements Required 



Copy 



Core Image 
Library 



Program 



// 
// 
// 
// 

// 
// 



Library 



Relocatable 
Library 



Module 



/* 



JOB jobname 

ASSGN SYS002, X'cuu' 

VOL SYS002, IJSYSRES 

DLAB 'DOS SYSTEM RESIDENCE 

FILE ..." 

XTENT extent information 

EXEC CORGZ 

ALLOC id=cylin (tracks) C , id=cylin 

ttrflcks) il 

PRECEDING ALLOC STATEMENT 

REQUIRED IF NEW LIMITS TO BE 

ESTABLISHED COPYC prog 1 . ALL 

Cprog 2. ALL,... } 



// 
// 
// 
// 

// 
// 



JOB jobname 

ASSGN SYS002, X'cuu' 

VOL SYS002, IJSYSRES 

DLAB 'DOS SYSTEM RESIDENCE 

FILE ... 

XTENT extent information 

EXEC CORGZ 

ALLOC id=cylin (tracks) C t id=cylin 

(tfflcksj i "1 

PRECEDING ALLOC STATEMENT 

REQUIRED IF NEW LIMITS TO BE 

ESTABLISHED COPYC ALL 






Program 



Library 



// 
// 
// 
// 

// 
// 






JOB jobname 

ASSGN SYS002, X'cuu' 

VOL SYS002, IJSYSRES 

DLAB 'DOS SYSTEM RESIDENCE 

FILE ..." 

XTENT extent information 

EXEC CORGZ 

ALLOC id=cylin (tracks) C,id=cylin 

(tracks), . . ."] 

PRECEDING ALLOC STATEMENT 

REQUIRED IF NEW LIMITS TO BE 

ESTABLISHED COPYR module 1 

C, module 2, . . .] 



// 
// 
// 
// 

// 
// 






JOB jobname 

ASSGN SYS002, X'cuu' 

VOL SYS002, IJSYSRES 

DLAB 'DOS SYSTEM RESIDENCE 

FILE 

XTENT extent information 

EXEC CORGZ 

ALLOC id=cylin (tracks) C f id=cylin 

Itrscksi ~™1 

PRECEDING ALLOC STATEMENT 

REQUIRED IF NEW LIMITS TO BE 

ESTABLISHED COPYR prog 1 . ALL 

C»prog 2. ALL, . . 



// JOB jobname 

// ASSGN SYS002, X'cuu' 

// VOL SYS002, IJSYSRES 

// DLAB 'DOS SYSTEM RESIDENCE 

FILE 
// XTENT extent information 
// EXEC CORGZ 

ALLOC id=cylin ( tracks) £ ,id=cylin 

(tracks), . • . } 



Function 


Unit 


Element 


Control Statements Required 








* 


PRECEDING ALLOC STATEMENT 
REQUIRED IF NEW LIMITS TO BE 










ESTABLISHED COPYR ALL 










Copy 


Source 


Book 


// 


JOB jobname 




Statement 




// 


ASSGN SYS002, X'cuu' 




Library 




// 
// 

// 
// 

/* 
/& 


VOLSYS002, IJSYSRES 

DLAB 'DOS SYSTEM RESIDENCE 

FILE ... 

XTENT extent information 

EXEC CORGZ 

ALLOC id=cylin (tracks) £, id=cylin 

(tracks), . . .} 

PRECEDING ALLOC STATEMENT 

REQUIRED IF NEW LIMITS TO BE 

ESTABLISHED COPYS sublib.book 1 

Csublib. book 2,...] 






»' 




Sub- 


// 


JOB jobname 






library 


// 
// 
// 

// 
// 

* 

/* 

/& 


ASSGN SYS002, X'cuu' 
VOL SYS002, IJSYSRES 
DLAB 'DOS SYSTEM RESIDENCE 
FILE 

XTENT extent intormation 
EXEC CORGZ 

ALLOC id=cylin (tracks) [, id=cylin 
(tracks), . . .} 

PRECEDING ALLOC STATEMENT 
REQUIRED IF NEW LIMITS TO BE 
ESTABLISHED COPYS sublib. ALL 










Library 


// 


JOB Jobname 








// 


ASSGN SYS002, X'cu-j' 








// 


VOL SYS002, IJSYSRES 








// 


DLAB 'DOS SYSTEM RESIDENCE 
FILE ..." 








// 


XTENT extent information 








// 


EXEC CORGZ 

ALLOC id=cylin (tracks) C, id=cylin 

(tracks), . ,.] 








* 


PRECEDING ALLOC STATEMENT 
REQUIRED IF NEW LIMITS TO BE 










ESTABLISHED COPYS ALL 










Libraries 


All 


// 


JOB jobname 








// 


ASSGN SYS002, X'cuu* 








// 


VOL SYS002, IJSYSRES 








// 


DLAB 'DOS SYSTEM RESIDENCE 
FILE . . . 








// 


XTENT extent information 








// 


EXEC CORGZ 

ALLOC id=cylin (tracks) C,id=cylin 

(tracks), . . .} 








* 


PRECEDING ALOC STATEMENT 
REQUIRED IF NEW LIMITS TO BE 








/* 


ESTABLISHED COPY ALL 
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1/0 MODULE TABLE 



CDMOD 



PRMOD 



MTMOD 
(GET/ 
PUT) 



hTTMOO 
(WORK 
FILES) 



SDMOD 
(GET/ 
PUT) 



SDMOD 
(WORK- 
FILEi) 




^ 



^ 



^ 



<** 



DAMOD 



ISMOD 



W 



W 



RECFORM=FlXUNB 
=VARUNB 
=UNDEF 



(AS IN) CDMUJ 



FIXUNL (OR) FIXBLK 
VARUNB (OR; VARBLK 
UNDEFINED 



(AS IN) MTMOD 



RECF0RM=FIXUNB 
-UNDEF 



RECFORM-FIXUNB 
-FIXBLK 
-BOTH 



CTLCHR=ASA 
=YES 
C0NTR0L=YES 
(NEITHER) CTLCHR (NOR) 
CONT n OL (SPECIFIED) 



(AS IN) CDMOD 



READ=BACKWARD 
-FORWARD 



IGNORE 
ERR0PT-SK3P 

NAME 
(ERROPT NOT 
SPECIFIED) 



TYPEFLE-INPUT 

-OUTPUT 
INPUT & UPDATE 



(AS IN) MTMOD 



TYPEFLE=CNPUT 
OUTPUT 
=CMBND 



PR1NT0V-YES 

(PRINTOV NOT 

SPECIFIED) 



CKFTR EC-YES 
(CKPTREC NOT 
SPECIFIED) 



NOTEPNT=YES 

-POINTS 
(NOTEPNT NOT 
SPECIFIED) 



AFTER-YES 
AFTER1D-YES 
(IF NEITHER OF 
THESE IS SPECIFIED) 



IOROUT-LOAD 
-ADD 
-RETRVE 
-ADDRTR 



ERROPT-YES 
(ERROPT NOT 
SPECIFIED) 



NOTEPNT- 

POINTRW 
-YES 
(NOTEPOINT 
NOT SPECIFIED) 



IDLOC-YES 
1DLCC (NOT 
SPEQFIED) 



TYPEFLE- 

RANDOM 
-SEQNTL 
-RANSEQ 

TYPEFLE (NOT 

SPECIFIED) 




(NErHER) WORKA 

(N0R)I0AREA2 

W0RKA=YES 

I0AREA2=YES 

(BOTH) WORKA (AND) 

I0AREA2 



lOAREA2=YES 
IOAREA2 (NOT 
SPEaFIED) 



WORKA-YES 
(WORKA NOT 

SPECIFIED) 



TRUNCS-YES 
(TRUNCS NOT 
SPEQFIED) 



XTENT-MULTPLE 
XTENT(NOT 
SPECIFIED SINGLE 
XTENT IMPUED) 



UPDATE-RANDOM 
-SEQJJTL 
-RANSEQ 

UPDATE (NOT 

SPEQFIED) 



DEVICE=2540 
= 1442 
-2520 
-2501 
-2540 
(fc CRDERR 
SPEQFIED) 



WORKA-YES 
WORKA (NOT 
SPEQFIED) 



CONTROL-YES 
(CONTROL NOT 
SPEQFIED) 



WORK-YES 
WORK (NOT 
SPEQFIED) 



DTFCD 



OPERATION 


OPERAND 


MUST BE INCLUDED 


REMARKS 


DTFCD 




Each file 


Header card. Specify 
symbolic file name. 


BLKSLZE=n 


Each file 


Length of I/O areas 


CONTROL" 
YES 


If a CNTRL macro Is 
issued to the file 




CRDERR= 
RETRY 


To RETRY card output 
error 


For 2520 and 
2540 only 


CTLCHR=YES 
ASA 


For first-character 
control . 


YES for S/360 character 
set. 

ASA for American Stand- 
ard Set. 


DEVADDR= 
SYSnnn 


Each file 


Specifies symbolic unit 


DEVICE= 
2540 
1442 
2520 
2501 


For device other than 
2540, 


To indicate I/O device 


EOFADDR= 

name 


For input or combined 
file 


Specifies end-of-flle 
routine 


10AREA1= 
name 


Each file 


Name=address expression 


IOAREA2= 
name 


Combined file output 
area 


Second output area 
Name=address expression 


IOREG=(r) 


If two I/O areas are 
used. 


Specify r (register 2-12) 


MODNAME= 
name 


If name other than 
standard or a more in- 
clusive module is 
referenced 


Specifies a user -named 
I/O module 


OUBLKSZ=n 


For a combined file if 
IOAREA2 is specified. 


n=maximum number of 
characters to be trans- 
ferred at one time 


RECFORM= 
FIXUNB 
UNDEF 
VARUNB 


If other than FIXUNB. 


Specifies record format 
Only FIXUNB valid for 
input. 


RECSlZE=(r) 


For undefined records 


For undefined records, 
reregister containing P 
length of output record 


SEPASMB= 
YES 


If DTF is assembled 
separately 




SSELECT=n 


For stacker selection 
to pocket other than NR 
orNP 


n= stacker select charact- 
er 


TYPEFLE- 
INPUT 
OUTPUT 
CMBND 


If other than input 


Specifies an input, out- 
put, or combined file 


WORKA=YES 




If I/O records are pro- 
cessed in work areas , 
answer YES 



DTFPR 



OPERATION 


OPERAND 


MUST BE INCLUDED 


REMARKS 


DTFPR 




Each file 


Specifies header card. 
Specifies symbolic file 
name 


BLKSlZE=n 


If other than 12 1 


n=length of I/O area. If 
the record is not fixed, 
enter the length of the 
longest record. 


CONTROL= 
YES 


If a CNTRL macro 
will be used 




CTLCHR= 
YES 
ASA 


For first character 
control 


YES=S/360 character set 
ASA=American Standard 
Association set 


DEVADDR= 
SYSnnn 


Each file 


Symbolic unit 


DEVICE= 
1403 
1404 

1443 
1445 


For file other than 
1403. 


Actual device 


IOAREA1- 
name 


Each file 


Specifies name as output 
area 


IOAREA2= 
name 


If two I/O areas are 
Bpecified 


Second name output area 


IOREG=(r) 


For two output areas 


r=register 2-12 


MODNAME* 
name 


If name other than 
standard or a more in- 
clusive module is 
referenced 


Specifies a user-named 
I/O module 


PR INTO V= 
YES 


If PRTOV macro is used 




RECFORM= 
FIXUNB 

unbef - 

VARUNB 


If record is not FIXUNB 




RECSIZE=(r) 


For undefined records 


r=register 2- 12 contain- 
ing length of output 
record 


SEPASMB=YES 


If DTF is assembled 
separately 




WORKA=YES 


If records are processed 
in work areas 





DTFMT 



OPERATION 


OPERAND 


MUST BE INCLUDED 


REMARKS 


DTFMT 




Each tile 


Specifies header card and symbolic 
file name. -- v 


*BLKSlZE=n 


Each file 


n=length of the I/O area. If the re- 
cord is not fixed enter the length 
of the longest record. 


CKPTREO 
YES 


tt input file has checkpoint 
records among daca records 


IOCS will bypass checkpoint 
records . * 


♦DEVADDR- 
SYSnnn 


Each file 


Specifies symbolic unit 


•EOFADDR" 
name 


Input or work flies 


Specifies name of user's end-of- 
file routine. 


•ERROPT- 
IGNORE 
SKIP 
name 


For error correction 


IGNORE allows IOCS to handle the 
record as if no errors were de- 
tected. SKIP allows IOCS to bypass 
the record. Name is the name of a 
routine to which the program will 
branch. 


FILABL= 
STD 
NSTD 
NO 


Each file 


Specifies the type of labels. 


i6areai= 

name 


Each file 


Specifies I/O area. Name=address 
expression. 


10AREA2* 
name 


If two I/O areas are 
specified 


Specifies a second I/O area. Name 
=address expression 


I0REG=<r) 




r=register (2-12) if records are 
blocked or processed in the I/O area. 


LABADDR* 
name 


To process user's labels 


name=symbolic name of user's 
routine 


MODNAME 
*=name 


If name other than standard 
or a more inclusive module 
is referenced 


Specifies a user named I/O module 


♦NOTEPNT- 
YES 
POINTS 


YES Is required if NOTE, 
POINTR, POINTW, or 
POINTS is used 




*READ=> 
FORWARD 


If READ=BACK is specified 




BACK 


*RECFORM= 

* FIXUNB 
FIXBLK 
VARUNB 
VARBLK 

* UNDEF 


For other than FIXUNB 




RECSIZE=n 
or (r) 


For FIXBLK or UNDEF 


n=number of caracters in each re- 
cord for fixed-length blocked records. 
r=register (2-12) containing record 
length for undefined records. 


*REW1ND= 
UNLOAD 
NORWD 




Specifies procedure for rewinding 

tape. 


SEPASMB= 
YES 


If DTF Is assembled 
separately 




♦TYPEFLE= 
INPUT 
OUTPUT 

♦WORK 


For output or work files 


Specifies whether file is Input or 
output or if a work file is specified. 


TPMARK= 
NO 


If a tapemark is not to be the 
first record of a tape output 
file when no labels are spec- 
ified, or If no tapemark Is 
to be written following non- 
standard labels. 




VARBLD= 
(r) 


For variable -length blocked 
records . 


r=general register (2-12) 


WLRERR= 
name 


To branch to user's routine 
to handle wrong- length 
error correction. 


name=symbolic name of user's 
routine. If omitted, error handled 
as In ERROPT, or if both entries 
omitted, WLR indication will be 
ignored. 


WORKA= 
YES 


If records are processed in 
work areas 


, 



♦ Entries for work files 



DTFPT 



OPERATION 


OPERAND 


MUST BE INCLUDED 


REMARKS 


DTFPT 




Each file 


Header card. Specify symbolic 
file name 


BLKSIZE=n 


Each file 


UNDEF : at least one greater 
than the longest record 
FIXUNB: size of every record 


DEVADDR= 
SYSnnn 


Each file 


Symbolic unit 


EOFADDR= 
Name 


Each file 


Name of user's EOF routine 


ERROPT= 
IGNORE 
SKIP 
Name 




Error option. If absent, IOCS 
will terminate the job 


FTRANS= 
Name 


For shifted codes 


Name of user's figure shift 
translate table 


I0AREA1= 
Name 


Each file 


Name of Input area 


IOAREA2= 
Name 


For two Input areas 


Name of second Input area 


IOREG=(r) 


For two Input areas 


Register (2-12) containing 
current input area address 


LTRANS= 
Name 


For shifted codes 


Name of user's letter shift 
translate table 


MODNAME= 
Name 


For name other than 
standard 




OVBLKSZ=n 


Only when FIXUNB 
format is used with 
SCAN 


Number of characters to be 
read in to produce number 
specified in BLKSIZE. If 
omitted, will be equal to 
BLKSIZE 


RECFORM= 
FIXUNB 


If UNDEF format 




UNDEF 


RECSlZE=<r) 




Register (2-12) containing 
final length of input records 


SCAN=Name 


When shift and/or 
delete characters 
are in code 


Name of user's scan table for 
shift and delete characters 


SEPASMB= 
YES 


If the DTF Is as- 
sembled separately 




TRANS= 
Name 


When unehifted codes 
are to be translated 


Name of user's translate table 


WLRERR= 
Name 


« 


Name of user's wrong length 
record routine. If omitted, 
error handled as in ERROPT; 
if both entries omitted, WLR 
indication will be ignored. 



A 1 



DTFSD 



OPERATION 


OPERAND 


MUST BE INCLUDED 


REMARKS 


DTFSD 




Each file 


Header card, specify symbolic 
file name. 


*BLKSIZE=n 


Each file 


Length of I/O area. n=maximum 
number of characters. 


♦CONTROL* 

YES 


CNTRL macro used 




*DELETFL= 
NO 


If CLOSE macro is not to de- 
lete the Format 1 and Format 
3 label for a work file 


Applies To work files. 


*DEVICE= 
2311 


For 2321 




*EOFADDR= 
name 


For input or work files* 


Symbolic name of end-of-file 
routine. 


*ERROPT= 
IGNORE 
SKIP 

name 


For error correction on input 
or output files 


Provides facility to handle errors. 
SKIP not allowed for output . 


IOAREAl= 

name 


Each file 


Symbolic name of I/O area. 


IOAREA2= 
name 


If two I/O areas are used by 
GET and PUT 


Symbolic name of I/O area. 


IOREG=<r> 


For blocked records proces- 
sed in the I/O area, or if two 
I/O areas are used and the 
records are processed In the 
I/O areas. 


Register 2-12 contains address 
of the record. r=register 2-12. 


LABADDR* 

name 


If user processes his own 
labels. 


name=symbolic name of user's 
routine, 


MODNAME= 
name 


If name other than standard 
or a more Inclusive module 
is referenced. 


Specifies a user-named I/O 
module . 


♦NOTEPNT* 
YES 
POINTRW 


If NOTE.POINTR or POINTW 
macros will be issued, PO- 
INTRW ia specified. Specify 
YES for NOTE, POlNTR, 
POINTW, and POINTS. 




RECSIZE^n 
or(r) 


Number of characters in re- 
cord (fixed -length and block- 
ed) or register 2-12 for 
undefined records. 


Required for each file. 


*RECFORM= 
FIXUNB 
FIXBlT 
VARUNB 
VARBLK 

* UNDEF 


For other than FIXUNB 


Work files permit fixed blocked 
or undefined records only. 


SEPASMB= 
YES 


If DTF is assembled 
separately 




TRUNC= 
YES 


With TRUNC macro for Output 
F1XBLK file, or if FIXBLK 
DASD files contain shaft 
blocks within an input file. 




*TYPEFLE= 
INPUT 

OUTPUT 

* WORK 


For OUTPUT or WORK 




UPDATE= 
YES 


If DASD input file is updated 




*VERIFY= 
YES 


Td check a record written on 
2311 


Assumed for 2321 


VARBLD=(r) 


Variable-length blocked re- 
cords are built in output area 


r=regtster 2-12 


WLRERR= 
name 


To process wrong length 
records on input file 


name^symbolic name of user's 
routine 


WORKA= 
YES 




Omit this entry if IOREG=n 
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DTFDA 



OPERATION 


OPERAND* 


MUST BE INCLUDED 


REMARKS* 


DTFDA+ 




Each file 


Header Card. Specify symbolic 
file name (up to 7 ch. ) 


AFTER= 
YES 


Record reference AFTER 
used for an output record 


CARREC is assumed. 


+BLKSIZE=n 


Each file 


Length of I/O area. n=maximum 
number of characters. 


CONTROL* 
YES 


CNTRL macro used 




nmrv r? , - — i * 


Each file 


Identifies DASD unit 


DEVICE-^! 


+ ERRBYTE= 
Name 


Each file 


Symbolic name of 2-byte field 
for error/status codes supplied 
by IOCS. 


IDLOC=Name 


ID of same or next record to 
to supplied by IOCS 


Symbolic name of 5-byte filed 
for ID. 


+10AREA1* 

Name 


Each file 


Symbolic name of input/output 
area. Same as used in DS. 


KEYARO 
Name 


Record reference by Key 


Symbolic name of key_ field. 


KEYLEN=n 


Records contain key areas 


All keys must be the same 
length. n=length of keys. 


LABADDRa 
Name 


Check/write additional labels 


Symbolic name of user's label 
routine. 


MODNAME* 
Name 


If a name other than the 
standard or a more inclusive 
module is referenced . 




READID=YES 


Record reference by ID used 
for an input record 




READKEY= 
YES 


Record reference by key used 
for an Input record 




RECFORM= 
FIXUNB 

ONOef" 


TCecorcfs* not fixed-fength, of* 
Records added to a file and 
EOF record written 


If this entry is omitted, IOCS 
assumes FIXUNB. 


RECSIZE=(r) 


Undefined records 


r=number of a register 2-12 


+SEEKADR* 
Name 


Each file 


Symbolic name of track-re- 
ference field. Field is 8 bytes 
long. 


SEPASMB=YES 


If the DTF in assembled 
separately 




SRCHM=YES 


Search multiple tracks 


Applies to record reference by 
key. 


■+TYPEFLE" 
INPUT 
OUTPUT 


Each file 


Read and_check_s_Wndard_ labels. 
WrTte'stalndVrdlabifs", 


VERIFY=YES 


Check record written on 2311 


Assumed for 2321 


WRITEID* 
YES 


Record reference by ID used 
for an output record 




WRITEKY= 
YES 


Record reference by key used 
fci an output record 




XTNTXIT= 
Name 


To process extent card in- 
formation 


Symbolic name of user's extent 
routine. 


Must be included. Other entries are included when applicable. 

#When two choices are shown, select only the appropriate one and enter it after the ■ sign. 

*The header card and each detail card except the jaat one used in a file set must contain 
a continuation punch in column 72. Each detail card except the last one used must also 
contain a comma after the last operand. 

In all entries: Solid caps must be entered as shown (For example, AFTER=YES) 

Lowercase letters are to be replaced by programmer's symbolic name or 
a number (For example, Filename in header card, or BLKSIZE=n where n 
is replaced). ~~ 

n is a decimal self-defining value. 



AA 



ERRBYTE (DTFDA) 



Byte 


Bit 


Error/Status code 












1 


Wrong- length record 




2 


— 




3 


— 




4 


No room found 


5 
6 
7 




1 





Data check in count area 




1 


Track overrun 




2 


End of cylinder 




3 


Data check when reading key or data 




4 


No record found 

., ._ „ _ . .__-..■ ...r-_. .,,. ... 




5 


End of file 




6 


End of volume 




7 





MACRO INSTRUCTION 


ID SUPPLIED 


With SRCHM 


Without SRCHM 


READ Filename, KEY 


Same record 


Next record 


READ Filename, ID 


Next record 


Next record 


WRITE Filename, KEY 


Same record 


Next record 


WRITE Filename, ID 


Next record 


Next record 


WRITE Filename, RZERO 


None 


None 


WRITE Filename, AFTER C, EOF] 


None 


None 



ID Supplied After a READ or WRITE Instruction 
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DTF1S 



OPERATION 


OPERAND* 


MUST BE INCLUDED 


REMARKS* 


DTFIS* 




Each file 


Header card. Specify 
symbolic file name. 


CYLOFL-n 


Cylinder overflow 
areas 


May be specified alone or 
with an independent overflow 
area. n=number of tracks 
for each area. 


+ DSKXTNT=n 


Each file 


Maximum number of extents 
specified for the file. 


DEVICE=||| 


Each file 


Specifies Unit 


HINDEX^jj^j 




Specifies Unit containing 
high level indices. 


IOAREAL= 
Name 


IOROUT specifies 
LOAD, ADD, or 
ADDRTR 


Symbolic name of input/ 
output area. Same as used 
inDS. 

At least one I/O area must 
be specified for a file. 


IOAREAR= 
Name 


TYTEFLE specifies 
RANDOM or RANSEQ 


IOAREAS« 
Name 


TYPEFLE specifies 
SEQNTL or RANSEQ 


IOREG=(r) 


Process blocked re- 
cords in I/O area 


r=number of register 2-12 


+ IOROUT= 
LOAD 


Each file 


Build or extend a file on 
DASD. 


ADD 


Insert new records in an 
organized file. 


RETRVE 


Retrieve records for pro- 
cessijijJj^ujxh\ting L __ 

Insert and retrieve records. 


ADDRTR 


KEYARG= 
Name 


Required if random 
retrieval or sequential 
retrieval is initiated 
by key. 


Symbolic name of key_ field 
in main storage. 


+ KEYLEN=n 


Each file 


All keys must be the some 
length. n=length of key. 


KEYLCK>n 


With blocked records. 


n=high-order position of key 
field within each record. 


MODNAME* 
Name 


If a name other than 
the standard or a 
more inclusive module 
is referenced. 




MSTIND=> 
YES 


Master index 




+ NRECDS=n 


Each file 


n=number of records in a 
block. 


+ RECFORM= 
FIXUNB 


Unblocked records 


Applies to records in prime 
data area only. 


F1XBLK 


Blocked records 


+ RECSIZE=n 


Each file 


n=number of characters in 
each logical record. 


SEPASMB= 
YES 


If the DTF is assemblr 
ed separately. 
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OPERATION 



OPERAND* 



MUST BE INCLUDED 



REMARKS* 



DTFIS* 



TYPEFLE= 
RANDOM 

SEQNTL 

RANSEQ 



IOROUT specified 
RETRVE or 
ADDRTR 



Random processing. 



Sequential processing. 



Random and sequential 
processing. 



VER1FY=YES 



Check records written 
on 2311 



Assumed for 2321 



WORKL=Name 



IOROUT specifies 
LOAD, ADD, or 
ADDRTR 



_ 



WORKR=Name 



TYPEFLE specifies 
RANDOM or RANSEQ 
and records are pro- 
cessed in a work area 



Takes precedence over 
IOREG. 



WORKS=YES 



TYPEFLE specifies 
SEQNTL or RANSEQ 
and records are pro- 
cessed in work areas 



Takes precedence over 
IOREG. 



+ 
Must be included. Other entries are included when applicable. 

#When two choices are shown, select only the appropriate one and enter it after 
the - sign. 

*The header card and each detail card except the last one used in a file set must 
contain a continuation punch in column 72. Each detail card except the last 
one used must also contain a comma after the last operand. 

In all entries: Solid caps must be entered as shown (For example, IOROUT= 
LOAD). 

Lowercase letters are to be replaced by programmer's symbolic 
name or a number (For example, Filename in header card, or 
CYLOFL=n where n is replaced) ■ 

n is a decimal self -defining value. 



17 



ADD, RETRVE, and ADDRTR 



LOAD 



Bit 


Cause 





DASD error 


1 


Wrong length record 


2 


End of file 


3 


No record found 


4 


Illegal ID specified 


5 


Duplicate record 


6 


Overflow area full 


7 


Overflow 



Bit 


Cause 





DASD error 


1 


Wrong length record 


2 


Prime data area full 


3 


Cylinder Index area full 


4 


Master Index full 


5 


Duplicate record 


6 


Sequence check 



FUNCTION 


OUTPUT AREA REQUIREMENTS (IN BYTES) 


Count 


Key 


Sequence 
Link 


Data 


Load Unblocked Records 


8 


Key Length 





Record Length 


Load Blocked Records 


8 


Key Length 





Record Length x 
Blocking Factor 


Add Unblocked Records 


8 


Key Length 


10 


Record Length 


Add Blocked Records 


8 


Key Length 




Record Length x 
Blocking Factor 


8 


Key Length 


OR* 
10 


Record Length 


* Whichever Is Larger 



Output Area Requirements for Loading or Adding Records to a File by ISFMS 



FUNCTION 


I/O AREA REQUIREMENTS (IN BYTES) 


Count 


Key 


Sequence 
Link 


Data 


Retrieve Unblocked 
Records 





Key Length for 
sequential un- 
blocked records 


10 


Record Length 


Retrieve Blocked 
Records 









Record Length x 
Blocking Factor 







10 | Record Length 


•Whichever Is Larger 



I/O Area Requirements for Random or Sequential Retrieval by ISFMS 
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DTFSR 



OPERA- 
TION 



DTFSR 



OPERAND* 



D 



ALTTAPE= 

SYSimn 



BLKSIZE= 
n 



CHECKPT- 
n 



CKPTREC= 

YES 



CONTROL- 
YES 



CRDERR= 
RETRY 



CTLCHR* 

YES 



DEVADDR= 

SYSnnn 



APPLIES TO 



Q 



W 






+DEV1CE= 
DISK11 



R_EADpI_ 
READ20 



RBAD40 

READ42 

PRINTER 

CONSOLE 

PTAPERD 



EOFADDR* 
Name 



ERROPT- 
IGNORE 



SKIP 



Name 






'etf 
28 



8x 



2w 



3 
3* 



a 



5sS2 



0,(1 



8fi 






MUST BE 
INCLUDED 



Each FUe 



Header Card. 
Specify Symbolic File 
Name. 



Multi volume 
File Using Two 
Tape Drives 



Each FUe Ex- 
cept Combined 
FUe with Se- 
parate I/O 
Areas 



CHKPT Macro 
Used 



Bypass Checkr 
point Records 
on Input 



CNTRL Macro 
Used 



Punch Again on 
Error CondittoiJand 



Logical Re- 
cords Have 
Control Char- 
acter in First 
Position 



REMARKS* 



Symbolic Unit for Al- 
ternate Tape Drive. 
(For compatibility 
purposes) 



Length of I/O Area. 
rt=Maximum Number 
of Characters . 



(For compatibility 
purposes) 



Applies to Input FUe 
Only. 



CTLCHR Must Be Omi- 
tted. Does Not Apply 
to 2501. 



Applies Only to 2540 
2520 



Each Record Must 
Contain a Control 
Character. CONTROL 
Must Be Omitted and 
the CNTRL Macro Must 
Not Be Used for This 
File. 



Each FUe Ex- 
cept Disk 



Symbolic Unit for the 
I/O Device Used for 
the FUe. 



Disk Input/Out - 
putJFile_ _ 
Tape InputyOuf- 
puc_File __ ___ 



Include for Each File, 
and Specify 
Proper Name after 
DEVICE=. 



25pnnputFUe 



2520 Input/Out - 
put JFite 



2540 Input/Out- 
put Fi_le_ _ 



1442 Input/Out - 
put_File__ 



1403,1404,1443, 
1445_Output__ 



1052 Input/Out- 
put 



2671_Ijipu_t.FUe 



Input FUe 



Process Error 
Records 



Skip over 
Records^ 

User Routine 
for Error 
Records 



Symbolic Name of End- 
of-File Routine. 



Error Prevents , 



Applies Only to Disk 
at Tape Input. 

Job Temina- 
tion on Error 

Condition. Enter De- 
sired Specification 
after ERROPT=. 
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OPERA- 
TION 



OPERAND* 



APPLIES TO 



o 



LU 

> 

2 
Q 









ry 



P3 

2w 






SSS5 



Eg 

S2s2 



u 

CM H 



MUST BE 
INCLUDED 



REMARKS* 



DTFSR 



FILABL= 
STD 



Check or Write 
Standard LabelslO 



Include for Tape Input/ 
utput and 



NSTD 



File Contains 

Nonstandard 

Lables 



Specify Desired Op- 
eration after FILABL= 



NO 



Unlabelled File 



INAREA= 
Name 



Separate Areas 
for Input and 
Output for a 
Combined File 



Applies Only to 1442. 



INBLKSZ=n 



Separate Areas 
for Input and 
Output for a 
Combined File 



Applies Only to 1442. 
Length of INAREA. 



10AREA1* 
Name 



Each File Ex- 
cept Combined 
File with Se- 
parate I/O 
Areas 



Symbolic Name of In- 
put/Output Area. 



IOAREA2= 
Name 



Two I/O Areas 
Used 



Symbolic Name of Se- 
cond Input/Output Area. 



!OREG=(r) 



LABADDR= 
Name 



OUAREA= 
Name 



OUBLKSZ- 
n 



PRINTOV= 
YES 



READ=« 
FORWARD 



PACK 



RECFORM= 
FIXUNB 



FIXBLK 



VARUNB 



VARBLK 



Process Blocked 
Records in I/O 
Area, or Pro- 
cess in. Two I/O 
Areas 



renumber of General 
Purpose register 2-12. 
Omit WORKA=YES. 



Check/Build 
Additional 
Uecr-Standard 
Labels, or Pro 
cess Nonstand- 
ard Labels 



Symbolic Name of 
User's Label Routine. 



Separate Areas 
for Input and 
Output for a 
Combined File 



Applies Only to 1442. 



x 



Separate Areas 
for Input and 
Output for a 
Combined File 



Applies Only to 1442. 
Length of OUAREA. 



PRTOV Macro 
Used 



If This Entry Omitted, 
IOCS Assumes FOR- 
WARD. 



Read Tape 
Backwards 



Specify as Needed for 
Fixed-Length Unblock- 
ed RecordB. 
If This Entry Omitted, 
IOCS Assumes FIXUNB 



Fixed -Length 
Blocked Re- 
cords 



Variable- 
Length Unblock- 
ed Records 



Disk or Tape Records 
Require Record-Length 
Field. 



Variable- 
Length Blocked 
Records 



Blocks Require Block- 
Length Field. Records 
Require Record-Length 
Field. 
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OPERA- 
TION 



DTFSR" 1 



OPERAND* 



UNDEF 



RECSIZE= 
n or (r) 



REWIND^ 
UNLOAD 



NORWD 



TPMARK= 
NO 



TRANS= 
Name 



TRUNCS= 
YES 



- 



TYPEFLE= 
INPUT __ 

OUTPUT 



CMBND 



UPDATE= 

YES 



VARBLD= 
(r) 



VERIFY= 
YES 



WLRERR= 
Name 



**WORKA= 
YES 



APPLIES TO 



> 
2 
a 






8*5 
KM a 



■ — M3 

M Q « — 



< M 



S3 
83 






lil 

Ids 



5* 



MUST BE 
INCLUDED 



Undefined 
Records 



Fixed -Length 
Blocked Re- 
cords 



Undefined 
Records 



Unload on 
CLOSE or End- 
of-Volume 



Prevent Re 
winding 



If FILABL=NO 

or NSTD and No] Assumed 

Tape Mark is 

Desired 



For Tape 
Punched With 
Code Other than 
EBCDIC and 
IOCS is to Per 
form Trans- 
lation 



Symbolic Name of Code 
Translation Table. 



Fixed -Length 
Blocked Re- 
cords with 
Short Blocks 



Each File 

INPUT is 
assumed 



PUT Used For 
a Disk Input 
File 



Variable- 
Length Blocked 
Records Built ir 
Output Area 



Check Record 
Written on Disk 



User Routine 
for Wrong- 
Length Records 



GET or PUT 
Specifies a 
Work Area 



REMARKS* 



n=Number of Characters 
in Record. 



r=Number of register 
2-12. 



Omit to Rewind Only at 
OPEN, CLOSE, or End- 
of- Volume , 



If Omitted, YES is 



Include for Output if 
TRUNC Macro Used. 
Include for Input if 
TRUNC Macro Was Used 
When File Was Created. 



Specify Proper Type 
after TYPEFLE=. 
CMBND, Applies to 1442, 
2520, or to 2540 if Punch - 
Feed- Read Special 
Feature is Installed. 



r=Number of a register 
12. 



Symbolic Name of User's 
Routine. If Omitted, Er- 
ror Handled As in ER- 
ROPT; or if Both Entries 
Omitted;WLR indication 
will Be Ignored. 



Omit 10REG=(r) 



+Must be included. Other entries are included when applicable. 

#When two or more choices are shown, select only the appropriate one and enter if after the 
= sign. 

*The header and each detail card except the last one used in a file set must contain a 

continuation punch in column 72. Each detail card except the last one used must also contain 

a comma after the last operand. 
**The 16K DTFSR does not support a work area when the 2671 Paper Tape Reader is specified 

as the device. 

In all entries: Solid caps must be entered as shown (For example, CONTROL=YES) 

Lowercase letters af6 to be replaced by programmer's symbolic name or a 
number (For example, Filename in header card, or BLKSlZE=n where n is 
replaced). ~ 

n is a decimal self -defining value. 
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DTFPH 



NAME 



Filename 



OPERA 
TION 



DTFPH 



OPERAND 



APPLIES TO 



> 
2 
a 

ns 






8* 



9 



Tflfl 

ss 
28: 

12 



s 






Is 



MUST BE 
INCLUDED 



Labeled 

DASD/Tape 

FUe 



REMARKS 



Symbolic File 
Name. 



DEVICE= 
(Tapei 
{2311 
12321 J 



Each File 



DEVADDR= 
SYSrain 



Labeled Tape 
FUe 



Symbolic Unit 
for the Device 
Used for the 
FUe. 



LABADDR= 
Name 



Check/Buikl 
Additional 
User- 
Lables 



Standard Tape 



Symbolic Name 
of User's Label 
Roudne. For 
Input and 
DASD Files, 
Applies to Hea- 
der Labels Only 



MOUNTED= 
ALL 



SNGL"E" 



EachDASD 
FUe 



AU Extents Are 
to Be Available 
at die Initial 

OPEN. 

Oniv'theTFlffit" 
Extent Is to Be 
Available at the 
Initial OPEN. 



TYPEFLE= 
INPUT 
OUTPUT 



Labeled 
DASD/Tape 
Input File __ 
Labeled 
DASD/Tape 
Output FUe 



XTNTXIT= 
Name 



Symbolic Name 
of User's Extent 
Roudne. 



DTFCN 



OPERATION 


OPERAND 


MUST BE INCLUDED 


REMARKS. 


DTFCN 




Yea 


Specify the header entry. 
Specify symboUc file name. 


BLKSIZE=n 




Length of I/O area. n=actual 
length. 


DEVADDR= (SYSLOGI 
tSYSnnn 1 


Yes 


SymboUc unit. 


IOAREAl=name 


Each file 


Specifies the symbolic name of 
the I/O area. 


RECFORM= /FIXUNBj 
lUNDEFj 




Specifies the record format. 


RECSIZE=(r) 


For each undefined 
output file 


Indicates register containing 
length of each record. 


typefle=| input i 
! output! 


Yes 


Specifies the type of file. 


WORKA=YES 




Specifies that a work area wiU 
be used. 
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DIRECT ACCESS FILE 

















1 
1 


Name 


r " 
1 


Operation 


1 


Operand 


i 




(name) 


1 


READ 


i 


Filename, KEY 


1 




(name) 


1 


READ 


1 


Filename, ID 


1 
I 


1 ■■ 


(name) 


1 

1 


WRITE 


i 


Filename, KEY 


1 

1 




(name) 


I 


WRITE 


1 


Filename, ID 


t 




(name) 


I 


WRITE 


i 
i 


Filename, AFTER 


1 




(name) 


1 


WRITE 


1 


Filename, AFTER, EOF 


1 

t 


1 


(name) 


I 

u . 


WRITE 


l 
U - 


Filename, RZERO 




1 


(name) 


1 


WAITF 


r 
i 


Filename 




1 


(namej(_ 


1 


CNTRL 


i 


Filename, code 


I 



LOAD 



INDEXED SEQUENTIAL FILE 



Name 



Operation 



+■ 



Operand 



(name) 



SETFL 



Filename 



-I 



_ (name) I__„JY R I T J i!^!^ei.NEWKEY 1 

(name) __[ ENDFL Y Filename J 



ADD 



I Name 

I (name) 
I 

l (name) 



"T" 
I 



Operation 



Operand 



I 
t 



WRITE 



WAITF 



Filename, NEWKEY 



Filename 



RANDOM RETRIEVAL 



r~" 



t 

■f- 



Name 



Operation 



i- 



Of>erand 



I 



(name) 



•4- 



READ 



Filename, KEY 



(name) 
(name) 



j WRITE Filename,_KEY j 

I WA1TP I Ptlftnnm*. I 



WAITF 



Filename 



SEQUENTIAL RETRIEVAL 



1 


Name 


1 


Operation 


1 Operand 


I 


1 




~r 




1 


ID Name i 




1 

1 


(name) 




SETL 




Filename, 


KEY 
ROF 


■ 


1 

1 




L _ 




J 


* GKEY 




1 


(name) 




GET 




Filename 




1 

1 


(name) 




GET 




Filename, Workname 




1 

1 


(name) 


T ~ 


PUT 




Filename 


t 


1 


(name) 




PUT 




Filename, Workname 




1 

1 


(name) 


1 


ESETL 




Filename 


1 



UTILITIES 



JOB CONTROL 





File to File 
Programs 


Tape Compare 
Program 


Clear Disk 


Clear Data Cell 


JOB 


Required 


Required 


Required 


Required 


LBLTYP(DOS) 
NMTLBfTOS) 


If tape label 
checking 


Not Used 


Not Used 


Not used 


VOL 


For label 


Not Used 


Required 


Required 


TPLAB 


For tape label 


Not Used 


Not Used 


Not Used 


DLAB 


For DASD label 


Not Used 


For DASD label 


For DASD label 


XTENT 


For DASD 


Not Used 


Required for 

DASD 


Required for 

DASD 


ASSGN 


Required if de- 
vices are dif- 
ferent from 
those assigned 
at IPL time 


Required if de- 
vices are dif- 
ferent from 
those assigned 
at IPL time 


Required If de- 
vices are dif- 
ferent from 
those assigned 
at IPL time 


Required if de- 
vices are dif- 
ferent from 
those assigned 
at IPL time 


UPSI 


Optional 


Optional 


Optional 


Optional 


EXEC 


Required 


Required 


Required 


Requied 


/* 


For card input 
program * 


Not Used 


Not Used 


Not Used 


/& 


Required 


Required 


Required 


Required 


* This card must immediately follow the data cards for card input programs. In addition, 
card columns 3-80 of the card must be entirely blank, otherwise the card will be 
ignored and treated as data. 





File to File 
Programs 


Tape Compare 
Program 


Clear Disk 


Clear Data Cell 


VOL (filename) 


UIN.UOUT 


Not Used 


UOUT 


UOUT 


ASSGN device for logg- 
ing operator messages 


SYSLOG 


SYSLOG 


SYSLOG 


SYSLOG 


ASSGN utility control 
statement input device 

— ■ 


SYSIPT 


SYSIPT 


SYSIPT 


SYSIPT 


ASSGN device for logg- 
ing programmer 
messages 


SYSLST 


SYSLST 


SYSLST 


SYSLST 


ASSGN Primary tape 
and card input and 
alternate tape input 


SYS004 


SYS004 


Not Used 


Not Used 


ASSGN Primary tape 
and printer output and 
alternate tape output 


SYS005 


SYS005 


Not Used 


Not Used 


ASSGN linkage editor* 


SYSOOO 
SYSOOl 
SYS002 


SYSOOO 
SYSOOl 
SYS002 


SYSOOO 
SYSOOl 
SYS002 


SYSOOO 
SYSOOl 
SYS002 


ASSGN card output 


SYS006 


Not Used 


Not Used 


Not Used 


ASSGN DASD input 
and or output device** 


SYS000- 
SYSnnn 


Not Used 


SYS000- 
SYSnnn 


SYS000- 
SYSnnn 


* These units are available when not in UBe by linkage editor. 
** SYSnnn can be no greater than the greatest physical unit block assigned and must not 
conflict with the assignment of any other device. 



Program 


NAME 


Assumed Modifier Card 


Tape to Tape 


TPTP 


//bUbTC, FU. A=(1000), B=(1000), IU, OU, RI 


Tape to Disk 


TPDK 


//bUbTC, FU, A=(1000), B=(1000), IU , OY , RI 


Tape to Data Cell 


TPDC 


//bUbTC, FU, A=(1000), M1000), IU,OY, RI 


Tape to Card 


TPCD 


//bUbTC, FF, A=(80, 80), B=(80, 80), RJ.Ol, RI, S2 


Tape to Printer 


TPPT 


//bUbTD, FU, A=(1000), B=(120), IU, OX, PY, RI, SI 


Disk to Tape 


DKTP 


//bUbTC, FU, A=(1000), B=(1000), OU, RI 


Disk to Disk 


DKDK 


//bUbTC, FU, A=(1000), B=(1000), OY, RI 


Disk to Data Cell 


DKDC 


//bUbTC, FU, A=(1000), B=(1000), OY, RI 


Disk to Card 


DiCCD 


//bUbTC, FF, A=(80, 80), B=(80, 80), 01, RI, S2 


Disk to Printer 


DKPT 


//bUbTD, FU, A=(1000), M120), OX, SI, PY, RI 


Data Cell to Tape 


DCTP 


//bUbTC, FU, A=(1000), B=(1000),OU, RI 


Data Cell to Disk 


DCDK 


//bUbTC, FU, A=(1000), B=(1000), OY, R 1 


Data Cell to 
Data Cell 


DCDC 


//bUbTC, FU, A=(1000), B=(1000),OY, RI 


Data Cell to 
Printer 


DCPT 


//bUKTD, FU, A=(1000), B=(120), OX, SL, PY, RI 


Card to Tape 


CDTP 


//bUbTC, FF, A=(80, 80), B=<80, 80),U,OU,R1 


Card to Disk 


CDDK 


//bUbTC, FF, A=(80, 80), B=(80, 80), 11, OY, RI 


Card to Printer 
and/or punch 


CDPP 
(PUNCH) 


//bUbTB, FF, A=(80, 80), B=(80, 80), U, 01 , S2 , R 1 




(PRINT) 


//bUbTB, FF, A*(80, 80), B=(120), U, OC, S2, RI 


Cleai Disk 


CLRDSK 


//bUCU>B=(K=0, D=100), X'00', OY 



LABEL CHECKING 

Bit OK for standard input- label checking; on for 

nonstandard or no input- label checking. 

Bit 1 Off if not doing user input-label checking; on if 

user input-label checking. 

Bits 2 and 3 are switches for output-label checking. 

Bit 2 Off for standard output- label checking; on for 

nonstandard or no output- label checking. 

Bit 3 Off if not user output-label checking; on if 

user output- label checking. 

Bit 4 is for nonstandard or no output-label handling. 

Bit 4 Off = Write tape mark separating the label 

from data. 

On = Do not write a tape mark to separate 
the label from the data. 

A user label routine must be supplied only if bits 
1 or 3 of the UPSI byte are ON. 
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PARAMET- 
ER 


POSSIBLE 
FORMS 


ENTRIES 


EXPLANATION 


Function 
Tt 


TC 

TF 

TR 

TRF 

TD 

TL 

TLF 

T8 

TBF 


C 

F 

R 

RF 

D 

L 

LF 

B 

BF 


The Initial T identifies this as the type of function 

parameter. 

Copy 

Field Select 

Reblock 

Reblock and Field Select 

Display 

List 

List and Field Select 

Both print and punch 

Both print and punch with field select. 


Format 
Ff 


FF 
FV 
FU 


F 
V 
U 


Fixed-length records. 
Variable-length records. 
Undefined records. 


Input 
Description 


A=(n,m) 

A-(K>1,D-1) 
A-(g) 


(n,m) 

A- 
(K>I.D=1) 

A- 
(g) 


For fixed-length input records, the Input record 
length(the letter n) and the input block length (the 
letter m). For field select with variable-length 
Input records, the fixed portion of each input record 
(the letter n) and the maximum block length(the letter 
m) must be enclosed In parentheses and separated by 
a comma. 

This letter and symbol indicate this is the input- 
description parameter. 

For fixed -length DASD input records with keys, the ' 
letter K and symbol =■ must precede the length of the 
key field. The letter D and symbol ■ must precede 
the length of the data field. 

This letter and symbol indicate this Is the input- 
description parameter. 

For undefined input records or variable Input records 
without field select. 


Output 
Description 


B=(n,m) 

B»(K-1,D«1) 
B-(g) 


(n,m) 
(K-l.D-1) 


For fixed- length output records, the output record 
length(the letter n) and the output block length (the 
letter m). For field select with variable-length 
output records, the fixed portion of each output re- 
cord(the letter n) and the maximum output block 
length (che letter m) must be enclosed in parentheses 
and separated by a comma. 

For fixed-length DASD output records with keys, the 
letter K and symbol = must precede the length of the 
key field. The letter D and symbol = must precede 
the length of the data field. These two fields must be 
separated by a comma and enclosed In parentheses. 




B=(p) 
B*(n,p) 


(g) 

(P) 
(n,p) 


For undefined output records or variable input re- 
cords without field select, the maximum block length 
must be enclosed in parentheses. 

For printer output the size of die print line (120, 132, 
144) must be entered. 

For field select of variable length records with 
printer output records, the fixed portion of each 
output record (the letter n) and the size of the print 
line (the letter p) must be enclosed In parentheses 
and separated by a comma. 


Optional 


Ix 

Ox 

Sx 

Px 

Rx 

CH*,y) 




These parameters are unique to each program and 
are explained under the discussions of the individual 
programs. 



Utility-Modifier Statement Parameters 
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CARD TO PRINTER ANP/OR PUNCH (CDPP) 

'Card to Punch: 
//bUCPbTc, FF, A=(n, m), B=(a, b), Ix.Ox, Rx, Sx, Q=(x, y) 

Card to Printer: 
//bUCPbTt, FF , A=(n, m), B=(p), Ix, Ox, Rx, Sx , Q=(x , y) 

Card to Printer and Punch: 
//bUCPbTt , FF , A=(n, m), B=(a ( b), Ix, Px, Rx, Sx, Q=(x, y) 



Card Input 


11 


1 


EBCDIC input. 


Ix 


12 


2 


Binary input. 


Printer or 


01 


1 


EBCDIC output (punch only). 


Punch Output 


02 


2 


Binary output (punch only). 


Ox 


Ox 


X 


Hexadecimal output (printed only).. 




0C 


c 


Character output (printer only). 


Page 


py 


Y 


Number pages. 


Numbering 
Px 


PN 


N 


Do not number pages. 


Sequence 


Q=(x,y) 


X 


This represents the position of a field in a 


numbering 






card (relative to one) for sequence-numbering 


Q=<x.y) 




i 


(1 or 2 digits). 
Separator. 






y 


This represents the length of the field 
(maximum 10). 


First Record 
Rx 


Rx 


X 


(x- 1 records will be bypassed) 


Spacing and 


SI 


1 


Printer output; Single spacing. 


Stacker 


S2 




Punch output; Select stacker I. 


Control 


S3 




Printer and Punch; Printer control only. 


Sx 




2 


Printer output; Double spacing. 
Punch output; Select stacker 2. 
Printer and Punch; Printer control only. 






3 


Printer output; Triple spacing. 

Punch output; Invalid. 

Printer and Punch; Printer control only. 



CARD TO DISK (CDDK) 

//bUCDbTt, FF, A=(input), B=(output), Ix, Ox, Q=(x, y), Rx 



Card Input 
Ix 


11 
12 


1 
2 


EBCDIC input. 
Binary input. 


Disk Check 
Ox 


OY 
ON 


Y 
N 


Write-disk check. 

Do not write-disk check. 


Sequence- 
numbering 
Q-(x,y) 


Q=(x 


,y) x 

t 

y 


This represents the first position of a field 
in a card (relative to one) for sequence- 
numbering (1 or 2 digits). 
Separator. 

This represents the length of the field 
(maximum 10). 


First Record 
Rx 


Rx 


X 


(x-1 records will be by passed). 
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CARD TO TAPE (CDTP) 

//bUCTbTt, Ff , A=(input), B=(output), Ix, Rx, Ox, Q=(x, y) 



Card Input 
Ix 


II 
12 


1 
2 


EBCDIC input 
Binary input. 


Rewind 

Output 

Ox 


OR 
ON 
OU 


R 
N 

U 


Rewind both before and after data transfer. 

Do not rewind either before or after data 

transfer. 

Rewind before and rewind and unload after 

data transfer. 


Sequence- 
numbering 
Q=(x,y) 


Q=(x,y) 


X 

i 

y 


This represents the first position of a field in 
a card (relative to one) for sequence- 
numbering (1 or 2 digits). 
Separator. 

This represents the length of the field 
(maximum 10). 


First Record 
Rx 


Rx 


X 


(x-1 records will be bypassed). 



TAPE TO PRINTER (TPPT) 

//bUTPbTt, Ff , A=(input), B=(output), Ix, Ox , Px , Rx, Sx 



Rewind Input 


IR 
IN 

IU 


R 

N 

U 


Rewind both before and after data transfer. 

Do not rewind either before or after data 

transfer. 

Rewind before and rewind and unload after data 

transfer. 


Print Output 
Ox 


OX 
OC 


X 

c 


Hexadecimal printout. (For data display only) 
Character printout. (Forced for data list) 


Spring 
Option Sx 


SI 
S2 
S3 
SA 
SB 
SC 
SD 


1 

2 
3 
A 
B 
C 
D 


Single spacing (Forced for data display) 

Double spacing. 

Triple spacing. 

Type A first character forms control. 

Type B first character forms control. 

Type C first character forms control. 

Type D first character forms control. 


Page 

Numbering 

Px 


PY 

PN 


Y 

N 


Number pages. (Forced for data display) 
Do not number pages. (Forced for first 
character forms control) 



TAPE TO DISK (TPDK) 

//bUTDbTt, Ff,A=(input), B=(output), Ix, Ox, Rx 



Rewind Input 


IR 


R 


Rewind both before and after data transfer. 


Ix 


IN 


N 


Do not rewind either before or after data 
transfer. 




IU 


U 


Rewind and unload both before and after data 
transfer. 


Disk Check 


OY 


Y 


Write-disk check. 


Ox 


ON 


N 


Do not write-disk check. 


First Record 


Rx 


X 


(x-1 records will be bypassed). 


Rx 
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TAPE TO CARD (TPCD) 

//bUTCbTt, FF, A=(input), B=(output), Ix, Ox, Rx, Sx, Q=(x,y) 



Rewind 

Input 

Ix 


IR 
IN 
IU 


I 
R 

N 
U 


The first letter In these forms identifies this parameter. 
Rewind both before and after data transfer. 
Do not rewind either before or after data transfer. 
Rewind before and rewind and unload after data transfer. 


Sequence 

Numbering 

Q=(x,y) 


Q=(x,y) 


Q= 

X 

f 

y 


The letter and symbol identify this parameter. 

This represents the first position of a field in a card 
(relative to one) for sequence-numbering (1 or 2 digits). 

Separator , 

This represents the length of the field (maximum 10). 
The (x,y) parts of this parameter must be enclosed in 
parentheses . Absence of this parameter indicates no 
sequence numbers. 


First 

Record 

Rx 


Rx 


R 
X 


The first letter in this form identifies this parameter. 

This represents the position of the first logical input 
record to be output (x-1 records will be bypassed). If 
the file is to be copied, the function parameter must be 
indicated to be reblocked and the input and output file 
description parameters must contain identical values. 


Stacker 
Control 
Sx 


SI 
S2 

S3 


S 
1 
2 
3 


The first letter in these forms identifies this parameter. 

Select pocket 1 

Select pocket 2 

First character stacker control. 



TAPE TO TAPE (TPTP) 

//bUTTbTt, Ff, A=(input), B=<output), lx, Ox, Rx 



Rewind 
Option for 
input 
Ix 


IR 


R 

N 
U 


Rewind both before and after data transfer. 

Do not rewind either before or after data transfer. 

Rewind before and rewind and unload after data transfer. 


First 
Record Rx 


Rx 


X 


(x- 1 records will be bypassed. ) 


Rewind 

Output 

Ox 


OR 
ON 
OU 


R 

N 
U 


Rewind both before and after data transfer. 

Do not rewind either before or after data transfer. 

Rewind before and rewind and unload after data transfer. 



DISK TO CARD (DKCD) 

//bUDCbTt, Ff, A=(input), B=(output), Ox, Rx, Sx, Q=(x,y) 



Output 
Mode Ox 


Ol 
02 


1 
2 


EBCDIC punching 
Binary punching 


Sequence - 

Numbering 

Q=(x,y) 


Q=(x,y) 


Q= 
x 

i 

y 


The first letter and symbol identify this parameter. 

This represents the first position of a field in a card 
(relative to one) for sequence -numbering (1 or 2 digits). 

Separator. 

This represents the length of the field (maximum 10). 


First 
Record Rx 


Rx 


X 


(x- 1 records will be bypassed.) 


Stacker 

Select 

Sx 


SI 
S2 

S3 


1 

2 
3 


Select pocket 1 
Select pocket 2 
First character gtacket select 



DISK TO TAPE (DKTP) 

//bUDTbTt, Ff, A=(input), B=(output), Ox, Rx 



Rewind Output 
Ox 


OR 
ON 
OU 


R 

N 

U 


Kewind both before and after data transfer. 

Do not rewind either before or after data 
transfer. 

Rewind before and rewind and unload after 
data transfer. 


First Record 
Rx 


Rx 


X 


(x-1 recordB will be bypassed.) 



DISK TO DISK ( DKDK) 

//bUDDbTt, Ff, A=(lnput), B=(output), Ox, Rx 



Disk Check 
Ox 


OY 
ON 


Y 
N 


Write-disk check. 

Do not write-disk check. 


First Record 
Rx 


Rx 


x 


(x-1 records will be bypassed.) 



DISK TO PRINTER (DKPT) 

//bUDPbTt, Ff, A=(input), B=(output), Ox, Sx, Px, Rx 



Printer 

Output 

Ox 


OX 
OC 


X 
C 


Hexadecimal printout. (For data display 
only). 

Alphameric printout. (Forced for data list 
mode). 


Page -numbering 
Px 


PY 
PN 


Y 

N 


Number pages (Forced for data display). 

Do not number pages. (Forced for first 
character forms control). 


First Record 

Printed 

Rx 


Rx 


X 


(x-l records will be bypassed.) 


Spacing 
Sx 


SI 

S2 

S3 

SA 

SB 

SC 

SD 


1 

2 
3 
A 
B 
C 
D 


Single spacing. (Forced for data display) 

Double spacing. 

Triple spacing. 

Type A first character forms control. 

Type B first character forms control. 

Type C first character forms control. 

Type D first character forms control. 



CLEAR DISK (CLRDSK) 
//bUCLbB=(K=l, D=l), 



C'c' 
X'xx' 



, O 



Nl 



Parameter 


Entry 


Explanation 


B=(K=1, D=l) 


B= 


Identifies this parameter. 




(K*l, 
D=l) 


Indicates the length of the key and data block in by- 
tes. If a key length is not desired, the key length 
must be zero. 


C'c' 
or 


C'c' 


C is entered and followed by the fill character 
(EBCDIC) enclosed in apostrophes. 


X'xx' 


X'xx' 


The letter X is entered and followed by the hex- 
adecimal fill character enclosed In apostrophes. 


OY 
or 





Identifies this as the output parameter. 


ON 


Y 

N 


Indicates write-disk check. 
Indicates do not write-disk check. 



SPOOL UTILITIES 



OPERATION 



OPERAND 



MUST BE INCLUDED 



REMARKS 



INCARD 



iiwrr 1 SYS00U " 



If other than SYS001 
Is wanted. 



nnn - the programmer logical 
unit containing input. A 160 
byte buffer is generated. 



INT APE 



BUFSIZ=n 



For each file. 



n=maxirnum size of input block. 
A buffer of 2n bytea is generat- 
ed. 



, RECSIZ= 



\ namel 



If logical record size 
within blocks is to be 
specified. 



m=logical record size, namel= 
symbolic location containing 
logical record size. If omitted 
or value=0, records are treated 
as unblocked. 



[<*H§lfS£l] 



If other than SYS001 
is wanted. 



nnn - the programmer logical 
unit containing input. 



(",F1LE=| 



filename f 
(r) J 



C,LBL=name2D 



,ERROR= 



SKIP 
IGNORE! 



name3 j 



[!cHKPT=|^ me4 f] 



For each file bearing 
standard labels. 



Identifies the filename for label 
processing. r=register point- 
ing to the 7 character filename. 



If special label pro- 
cessing is desired. 



name2=full-word area to be in- 
terpreted. If value=0, standard 
labels are assumed and user 
label are bypassed. If value is 
positive, value=address of user 
HDR record processing routine. 
If value=negatlve, or the para- 
meter is omitted no label pro- 
cessing is attempted. 



If read errors are 
not to be entirely 
ignored. 



SKlP=bypa8s any unreadable 
block. IGNORE=lgnore error 
condition. . name3=symbolic 
address of a user's routine for 
unreadable block processing. 



If checkpoint records 
are to be treated as 
data. 



name4=full -word area to be in- 
terpreted. If value=non-zero, 
checkpoint will be treated as 
data. If value=zero or the 
parameter is omitted, check- 
point records are bypassed. 
IfCHKPT=NO, checkpoint re- 
cords are treated as data. 



1NDISK 



BUFSIZ=n 



For each file. 



.RECSIZ: 



\ m 11 
I namel I.J 



>ILE=j flle ( n r a ) me j 



[,LBL=name23 



n=maximum size of Input block. 
A buffer of 2n bytes is generat- 
ed. 



If logical record size 
within blocks is to be 
specified. 



m=logical record size namel= 
symbolic addreBs containing 
logical record size. If omitted 
or value=0, records are treat- 
ed as unblocked. 



For each file. 



Idnetlfies the filename for label 
processing. r=register con- 
taining 8 character filename . 



If additional user 
label processing is 
desired. 



,ERROR= 



SKIP f 

IGNORE 
name3 > 



If read errors are 
not to be entirely 
Ignored. 



name2=full-word area (desig- 
nated name2) to be interpreated . 
If value=Q, additional user 
labels are treated like data. 
Otherwise, value is address of 
user's HDR label processing 
routine. 



SKIP=bypasa any unreadable 
block. IGNORE=ignore error 
condition. name3=symbolic 
address of a user's routlon for 
unreadable block processing. 



1NLOG 



BUFFER=i n ( a r mel 



For each input via 
the 1052. 



namelssymbolic location of the 
user's buffer area, 
reregister containing the 
buffer address . 



- M 



OPERATION 


OPERAND 


MUST BE INCLUDED 


REMARKS 


INLOG 


■ C0UNT -("r c >) 


IfBUFFER-d-b). 


b=number of characters to be 
read. 

reregister containing the num- 
ber of characters to be read. 


OUTCARD 


[™M«S2| 


If other than SYS002 
is wanted. 


nnn=programmer logical unit 
for output ■ A buffer of 1 60 
bytes is generated for the 1442 
and 2520 (240 bytes for the 
2540). 




f NO f 
STCTL=| 7E5 

Enamel 


If stacker selection 
is desired. 


Omission, or NO=pocket2; 
YES=atacker selection is con- 
trolled by first character of 
each record; namel=symbolic 
location of area to be inter- 
preted: 0= pocket 2; nonzero 3 
YES. 




(1442) 

,device= T55o~ 

l2540J 


If other than a 1442 
card punch is used. 


Specifies error -recovery 
procedures. 


I^.REITJRN-IJg^ 


If user routine or ad- 
ditional output utility 
macros follow. 


NO=contlnue to next sequential 
statement. YES=return to in- 
put routine or to optional user 
routine. 


OUTAPE 


BUFSIZ«n 


For each file. 


n=maximum size of output 
block. A buffer of 2n bytes is 
generated. 


[^(£m.l[ 




If record blocking is 
desired. 


m=blocktng factor; value of 
indicates unblocked records. 
namel^symbollc location to be 
interrogated. A value of in- 
dicates no blocking is perform- 
ed. Otherwise value=blockir]g 
factor. 




l^HSSl] 


If other than SYS002 
is wanted. 


nnn=programmer logical unit 
for outpuc. 


[FILE.| fll ^ me j| 


For each file bearing 

standard labels. 


Identifies label information. 
r=register pointing to an 8 
character filename. 


,LBL*Cname2D 


If label processing is 
desired. 


name2=fullword area symboli- 
cally designated name2 to be 
Interpreted. If value=0, stand- 
ard labels are assumed and 
user labels are bypassed; if 
value is negative, no label pro- 
cessing is attempted; if value 
is positive, value=address of 
HDR processing routine. 


[return=[^] 


If user routine or 
additional output 
utility macros follow. 


NO=continue to next sequential 
statement. YES=return to in- 
put routine or to optional user 
routine. 


OUTDISK 


BUFSIZ=n 


For each file. 


n*>maxlmum size of output 
block. A buffer of 2n bytes is 

generated. 


['"-Hir.melE 


If record blocking ie 
desired. 


rn=blocking factor; value of 
Indicates unblocked record*. 
namel=Bymbolic location to be 
interrogated. A value of in- 
dicates no blocking is perform- 
ed. Otherwise value=blocking 
factor. 


FILE-f" e J , r " ) me | 


For each file. 


Identifies label Information, 
reregister pointing to an 8 | 
character filename. 1 



OPERATION 


OPERAND 


MUST BE INCLUDED 


REMARKS 


OUTDISK 
(Cont'd) 


C,LBL=name2] 


If user label process- 
ing is desired. 


name2=fullword area symboli- 
cally designated name2 to be 
interpreted. If value=0, no 
user HDR label processing is 
attempted; if value is nonzero, 
value=address of HDR record 
processing routine. 


[■■^HS 5 ] 


If a write check is 
desired. 


lGNORE=ignore error condi- 
tion. name3=symbolic address 
of user routine for error - 

handling. 


.FORMAT- 


full] 

n 

name^j 


When a specified 
number of records 
are to appear on 
each track. 


FULL=flll track as much as 
possible. 

n=number of records per track. 

name4=symbolic address con- 
taining number of re- 
cords per track value. 
If value is 0, FULL is 
assumed. 


,RETURN=|^j 


If user routine or 
additional output 
utility macros follows. 


NO=continue to next sequential 
statement. YES=return to in- 
put routine or to optional user 
routine. 


OUTPRT 


BUFSIZ=n 


If n should be less 
than 144. 


n=maximum size of output 
block. 


F t ,v„^ 1 SYS002f 
L' UNITs lB75Hn7ilJ 




If other than SYS002 
is wanted. 


nnn=programmer logical unit 
for output. 


,FORMS= 


1 




If other than single - 
apaced lines are 
desired. 


Refer to the description of 
carriage control codes provided 
with macro description. 


[, RETURN- (jjg£) 




If ut,er routine or 
additional output 
utility macros follow. 


NO=conrinue to next sequential 
statement. YES=return to in- 
put routine or to optional user 
routine. 


OUTLOG 


BUFFER-)"*™ 1 ) 


For each output on the 
1052. 


nameI=symbolic location of the 
user's buffer area. rb=register 
containing the buffer address 
(absolute or symbolic). 


' C0UNT= l( n r c .)l 


If Buffer= CnO 


n=number of characters to be 
written, reregister containing 
the number of characters to be 
written. 


[,RETURN=|^| 




If user routine or 
additional output 
utility macros follow. 


NO=contlnue to next sequential 
statement. YES= return to in- 
put routine or to optional user 
routine. 



Code 

blank 


+ (EBCDIC or BCD1C) 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 



Space i.r Skip Action 

Space one line before printing 
Space two lines before printing 
Space three lines, before printing 
Suppress space before printing 
Skip to Channel 1 before printing 
Skip to Channel 2 before printing 
Skip to Channel 3 before printing 
Skip to Channel 4 before printing 
Skip to Channel 5 before printing 
Skip to Channel 6 before printing 
Skip to Channel 7 before printing 
Skip to Channel 8 before printing 
Skip to Channel 9 before printing 
Skip to Channel 10 before printing 
Skip to Channel 1 1 before printing 
Skip to Channel 12 before printing 
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Type A 



8-Bit Code 

00000001 
0000 1001 
00010001 
0001 1001 
10001001 
100 10001 
100 J 1001 
10100001 
I010L001 
10110001 
10111001 
11000001 
1 100 100 1 
11010001 
11011001 
11100001 
00001011 
00010011 
000U0H 
1000 10 11 
10010011 
10011011 
10100011 
1010 10 11 
10110011 
10111011 
110000 II 
11001011 
11010011 
J101I011 
11100011 
00000011 

Type B 

d immediate skip to 



Punch 
Combination 



1 


channel 1 


2 


channel 2 


3 


channel 3 


4 


channel 4 


5 


channel 5 


6 


channel 6 


7 


channel 7 


8 


channel 8 


9 


channel 9 





channel 10 


# 


channel II 


@ 


channel 12 


d 


immediate space 


J 


1 apace 


K 


2 spaces 


L 


3 spaces 



12, 

12. 

11, 

11, 

12, 

12, 

12. 

11, 

11, 

12, 

12, 

12, 

12, 

11. 

11, 

U. 

12, 

11, 

11, 

12, 

12, 

12, 

11, 

11, 

12, 

12, 

12, 

12, 

11, 

12, 

0, 3 

12, 9, 3 



9, 1 

9, 8, 1 

9, 1 

9, 8, 1 

0, 9 

11, I 

11. 9 

0, 1 

0, 9 

11, 0, 1 

11, 0, 9 

1 

9 

1 

9 

0, 9, 1 

9, 8, 3 

9, 3 

9, 8, 3 

0, 8, 3 

11, 3 

1.1, 8, 3 

0, 3 

0, 8, 3 

11, 0, 3 

II, 0, 8, 3 

3 

0, 9, 8, 3 

3 

11. 9, 8, 3 



Type C 

Code 
Plus (EBCDIC or BCDIC) 
blank 
zero 

1-9 or J-R 



Function 

Write (no automatic space) 
Write and space 1 line after printing 
Write and space 2 lines after printing 
Write and space 3 lines after printing 
Write and skip to channel 1 after printing 
Write and skip to channel 2 after printing 
Write and skip to channel 3 after printing 
Write and skip to channel 4 after printing 
Write and skip to channel 5 after priming 
Write and skip to channel 6 after printing 
Write and skip to channel 7 after printing 
Write and skip to channel 8 after printing 
Write and skip to channel 9 after printing 
Write and skip to channel 10 after priming 
Write and skip to channel 11 after printing 
Write and skip to channel 12 after printing 
Space 1 line immediately 
Space 2 lines immediately 
Space 3 lines immediately 
Skip to channel 1 immediately 
Skip to channel 2 immediately 

immediately 

immediately 

immediately 

immediately 

immediately 



3 
4 

5 
6 
7 



Skip to channel 

Skip to channel 

Skip to channel 

Skip to channel 

Skip to channel 

Skip to channel 8 immediately 

Skip to channel 9 immediately 

Skip to channel 10 immediately 

Skip to channel 11 immediately 

Skip to channel 12 immediately 

No op 



d Skip after print to 



A 


channel 1 


B 


channel 2 


C 


channel 3 


D 


channel 4 


E 


channel 5 


F 


channel 6 


G 


channel 7 


H 


channel 8 


I 


channel 9 


7 


channel 10 (EBCDIC or BCDJC) 


t 


channel 11 


a 


channel 12 (EBCDIC or BCDIC) 


d 


after print-space 


/ 


1 space 


S 


2 spaces 


T 


3 spaces 



Space or skip Action 

Suppress space and print 

Print and single space 

Double space, print, and space 

Triple space, print, and space 

Immediate skip to channel 1-9 
(that is, 1 or J=skip to channel 
1; 2 or K-skip to channel 2; etc), 
print, and then space. 
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OUTPUT ROUTINE DECISION USING REG 0, 1 





( 

YES 


START OF 
ANALYSIS 


) 

YES 






^""RegcNs, 

T NO 
•"""Reg r\ 

JNO 


/iQhv^ 






{yes 






DO NOT 

WRITE 

RECORD 


END 0FJOB 
CLOSE DISK 
OR TAPE 
FILE 






















WRITE 

OUTPUT 

RECORD 




CLOSE 
TAPE OR 
DISK FILE 
NOT EOJ 



REGISTER CONVENTIONS 


CONTROL OF OUTPUT 


USER 2 12 


R0*O, R1#0, ... WRITE RECORD 

R0 = O, R1 = 0, ... CLOSE FILE, EOJ 

R0^rO, R1 = 0, ... DON'T WRITE 
RECORD 

R0 = O, RHO, ... CLOSE FILE, 
NOT EOJ 


REG o RECORD ADDRESS 
1 RECORD LENGTH 

14 RETERN ADDRESS 

15 BASE REG. 



TECHNIQUES FOR PASSING CONTROL BETWEEN ROUTINES 



J VIA BRANH I 

I TO SYMBOLIC j 

ADDRESS i 

I . i 



f START J 



i 
I ' 1 

! USER I 

*] ROUTINE #1 | 



1- 


_ T _ 




INPUT 
ROUTINE " 






i 
I 

USER [_ 
ROUTINE #2 i 

1 t J 

I 

* 




OUTPUT 
ROUTINE 





» VIA REG 14 




T 






! USER |_ 

I ROUTINE #3 I 



SOLID LINES REPRESENT NORMAL OPTIONS AND PROGRAM FLOW. 



* ASSEMBLY TIME DECISION 



SORT/MERGE 



DISK SORT/MERGE, TAPE SORT/MERGE 



STATE- 
MENT 
DEFlNER 


STATUS 


OPERAND 


STATUS 


OPERAND REMARKS 


SORT 


Required for 
SORT runs 


FIELD=(P 1 ,M 1 ,S 1 ^2. 
M 2 ) 

FORMAT=XX 

XX=ZD . . . Zoned decimal 
PD . . . Packed decimal 
Fl . . . Fixed point 
BI ... Binary 
FL . . . Floating point 


Required 
Requii'ed 


P=Starting Position 
M=length 

S=A, , . . assending order 
=€),... dis sending order 






FILES=m (DS only) 
SlZE=n (DSonly) 


Optional 
Required 


m=The number of files to 

Kg sorted 
WORK <TS only) Required 
CHKPT(TS only) Optional 
n-logtcal record length 


MERGE 


Required for 
Merge runs 


FIELEKP.M.S,...) 
FORMAT= XX 
FILES= X 






RECORD 


Required 


TYPE^X 

LENGTH=(L ll L 2 .L3) 

=(Li,L2»L3,L4, 
L 5 ) 


for F 
for V 


x=F , . . Fixed length 
V . . . Variable length 

Lj=input 

L2=not used 

L,3=output 

L4=minimum of input 

L5=average of output 


INPF1L 


Required 


INPUT=X (DS only) 


Required 


X=T . . . Tape 
D . . . Disk 






VOLUME=<Na,Nb ...) 


Optional 


Na=fileA 
Nb*ftleB 






BLKSIZEHn, x) 


Required 


n=length 






OPEN=m 


Optional 








CLOSE=m 


Optional 








BYPASS 


Optional 


incorrect record will be 
bypassed 


OUTFIL 


Required 


BLKSlZE-n 


Required 


n^Iength 






OUTPUT=x <DS only) 
OPEN-m 


Required 
Optional 


x=T . . . Tape 
D . . . Disk 






CLOSER 


Optional 








JNOiTPMlC <DS only) 


Optional 




MODS 


for user's 


PHHn t m,E n ,E 12 ^;i3) 


Optional 


wntame 




Routine 


PH2^n,m,E3i,E32) 


Optional 


m=addness 






PHsKn.m.En) 


Optional 


&pKE41,E42,E 4 3,E 4 4, 
fi 45> 
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STATE- 
MENT 
DEFINER 


STATUS 


OPERAND 


STATUS 




OPERAND REMARKS 


OPTION 


Optional 


PRINT 


Optional 


Control cards Printout 






STORAGE=X 


Optional 


•DSonly 






NOTPMK 


Optional 


TSonly 






VERIFY 


Optional 


DS only 






KEYLEN*X 


Optional 


DSonly 






ADDROUT-X 


Optional 


DSonly 






CALCAREA 


Optional 


DSonly 






LABEL*<O.W,I) 
HO. 1) 

N^naostaBdard label 


Optional 


(I.W.OKTS Mnput ! 
0,O) -DS W*work 
0=output 






S -standard label 










U^unlabd 










ALTWK 


Optional 


TSonly 






FILES-X 


Optional 


TSonly 






RESTART 


Optional 


DSonly 


END 


Required 









* DS - DISK SORT 
TS - TAPE SORT 



NO ALTERNATE DRIVE 
Remarks 


USER'S REWIND 
SPECIFICATIONS 


ALTERNATE DRIVE/S 
Remarks 


OPEN 


CLOSE 


The volume is rewound and 
unloaded . The next volume 
is rewound. 


RWD 


RWD 


The volume is rewound. The 
next volume 1b rewound. 


The volume 1b rewound and 
unloaded. The next volume 
is rewound. 


RWD 


UNLD 


The volume is rewound and un- 
loaded. The next volume is 
rewound. 


The volume is rewound and 
unloaded. The next volume 
is not rewound. 


RWD 


NORWD 


The volume is not rewound, and 
the next volume is not rewound. 


The volume is rewound and 
unloaded . The next volume 
is rewound. 


NORWD 


RWD 


The volume is rewound, and the 
next volume is rewound. 


The volume is rewound and 
unloaded. The next volume 
is not rewound. 


NORWD 


UNLD 


The volume is rewound and un- 
loaded. The next volume is 
rewound. 


The volume is rewound and 
unloaded. The next volume 
is not rewound. 


NORWD 


NORWD 


The volume is not rewound, and 
the next volume is not rewound. 



Rewind Action Taken at EOV Time 
for Multi-Volume Files 

OPTION Statement 
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STANDARD DASD FILE LABELS 
Field 



Creation Date-, Expiration Spare 



±=r 



\ Date i 



File Name 



File 
Serial 

Number 



System Code 



n 






*© r-» 



s 



h© o 



_Es. 






Reserved 



10 
File 



ootao 



Option Record Key 
Codes Length Location 



:ode 



Format Volume 

Identifier Sequence 

Number 



Extent J 
Count 



^ 



Bytes used 
in last block 
of directory 



12 13 



^5 r- 



14 



S 



15 16 



17 






Sec- 18 
ondary 
Alloca- 
tion 



Last 

Record 

Pointer 



19(20 

4) 

U 



«$ 



Record Block Key [_ Data Set 

Format Length Length Indicators 

STANDARD TAPE FILE LABELS 



21 22 



CO 



W 



First Extent 



I 



Extent Type 
Indicator 



23( 
Lower 
Limit 



s 



24 
Upper 
Limit 



( T Extent 
- 1 L Sequence 
Number 



m 



Additional Extent 



55 



28 



29 



Addirionai Exten t 



32 



S 



33 
Pointer 



1 



FUe 
Label 
Field Number 



rtr 



File Identifier 



« 



T 

Label 
Identifier 



File 
Serial 



5 
Volume 

Sequence 



Number dumber 



> L H^T N r 1 



6 
File 
Sequence 

Number 



a 






Creation 
Date 



m 



10 
Expiration 
Date 



11 



$ 



12 



Block 
Count 



Version 
Number of 
Generation 



T 

File 
Security 



s 



System Code 



13 



14 



Reserved 



« ■ 
r- 1 
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LABEL STORAGE AREA (1 CYLINDER) 

Sequential DASD File Label Blocks 

1 . Always 104 bytes per extent . 

2. Always read into the transient area. 

Non-sequential DASD File Label Blocks 

1 . Always at least 104 bytes per file . 

2. Additional extents will require an additional 20 bytes similar to bytes 85-104. 

3. Always read into lower portion of user core. 



BYTE 


FUNCTION 


CONTENT/FORMAT 


1 


No. of Extents 


X 


*bb' 

A. SEQ DISK 'bb" = '01 ' for all ex- 
cept last extent. 

B. SEQ DISK 'bb' = 'FF' for last 
extent. 

C. Non-SEQ *bb* = number of ex- 
tents (maximum of 125) 


2-9 


File Name 


CL8 


'filename' (DTF name) 


10-53 


File ID 


CL44 


'Qualified name <Gen# Ver#)' 


54 


Format ID 


CL1 


V 


55-60 


File Serial 


CL6 


'serial' 


61-62 


Volume Sequence 


H 


V 


63 


Creadon Date 


X 


'yy* 


64-65 


it it 


H 


'ddd' 


66 


Expiration Date 


X 


'yy' 


67-68 




H 


'ddd' 


69-71 


Reserved 


3X 


'00' 


72-84 


System Code 


CL13 


'alphamerics' 


85-90 


Extent Serial 


CL6 


'serial' 


91 


Extent type 


X 


'bb' 


92 


Extent Seq. No. 


X 


'bb' 

A. 1SFMS without a master index 
'bb' = '01' 

B. All others 'bb' = '00' 


93-96 


Lower limit 


4X 


'CI', *C2\ Hi', *H2* 


97-100 


Upper limit 


4X 


•CI', *C2", 'HI*, 'H2' 


101-102 


Symbolic unit from CCB 


2X 


'0b'. 'bb' 


103 


Old cell 


X 


■Bl' 


104 


New cell 


X 


'B2' 



Labeled Tape Label Blocks 

1 . Always 80 bytes per fijfi. 

2. Always read into lower portion of user core. 



BYTE 


FUNCTION 


CONTENT/FORMAT 


1 

2-9 
10-58 
59-78 
79-80 


Reserved 
File name 
Mandatory File ID 
Optional File ID 
Symbolic unit from CCB 


X '00' 

CL8 'filename" 

CL49 'field 3 . . . . field 10' 

CL20 'field 11 ... field 13' 

2X '0b*. 'bb* 
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LABEL BLOCK KEY FOR EyERY LABEL BLOCK 



BYTE 


FUNCTION 


CONTENT/FORMAT 


1-8 


File Name 


CL8 


'file name 1 


9 


Reserved 


X 


*00' 


10 


Extent Sequence # 


X 


'bb' 

A. Mag Tape 'bb* = W 

fi. DASD *bb' = # of 








first extent 



LABEL BLOCKS SUMMARIZED 



FILE TYPE 


KEY 


LABEL BLOCK 


TAPE 


10 


80 for each file 


SEQ DASD 


10 


104 for each extent 


NON-SEQDASD 


10 


84+20 (number of extents) 



DISK STORAGE SPACE (Library and Directory) 



ELEMENT 


Logical 
record 
length 


Physical 

record 

length 


Logical records 
per physical 
record 


Total physical 
records 


Total logical 
records 


CIL 
Directory 


20 


360 


18 


8 


144 


CIL 


1728 


1728 


1 


2 


2 


RL 
Directory 


14 


322 


23 


9 


207 


RL 


322 


322 


1 


9 


9 


SSL 
Directory 


15 


150 


10 


!6 


160 


SSL 


160 


160 


1 


16 


16 
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Functions which require transients are as follows: 



Mnemonic Transient 



OPEN 


$$BOPEN 


CLOSE 


$$CLOSE 


DUMP 


$$DUMP 


_ _ _ 


$$BCNCL 


- _ - 


$$BPCHK 


_ - _ 


$$A 


CHKPT 


$$BCHKPT 


_ - _ 


$$BRSTRT 


_ - - 


$$BILSVC 


- - - 


$$BMSCIN 


- - - 


$$BATST 


PDUMP 


$$BPDUMP 


_ - _ 


$$BOPNLP 


SETFL 


$$BSETFL 


_ _ _ 


$$BSETFF 


ENDFL 


$$BENDFL 


_ - - 


$$BENDFF 


SETL 


$$BSETL 


ESETL 


&&BESETL 



Function 

open a file - other transient(s) will be called 

close a file - other transients) will be called 

Jump core and cancel job 

cancel a problem program (all Job steps) 

program check routine 

Type A transients (primarily device error routines) 

checkpoint 

restart 

illegal (undefined) SVC 

process messages from operator 

autotest transients 

dump core and return to caller 

OPEN SYSRES (disk system only) 

load routine (initialize) ISFMS 

load routine (initialize) ISFMS 

load routine (terminate) ISFMS 

load routine (terminate) ISFMS 

sequential return routine (initialize) ISFMS 

sequential return routine (terminate) ISFMS 



Note: The IPL and Supervisor Nucleus will bear the names 
$$A$IPL and $$A$SUP. An eighth character may be 
used to distinguish phases of these programs. 
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DOS SUPERVISOR CALLS 



Macro Supported 


SVC 


Function 


EXCP 





Execute channel programs. 


FETCH 


1 


Fetch any phase. 




2 


Fetch a logical transient (B -transient). 


3 


Fetch or return from a physical transient 
(A-transient). 


LOAD 


4 


Load any phase. 


MVCOM 


5 


Modify supervisor communications region. 


CANCEL 


6' 


Cancel a problem program. 


WAIT 


7 


Wait on a CCB or TECB. 


8 


Transfer control to the problem program 
from a logical transient (B-translent). 


LBRET 


9 


Return to a logical transient (B-transient) 
from the problem program after a SVC 8. 


SETiME 


*10 


Set timer interval. 


11 


Return from a logical transient (B-transient). 


12 


Logical AND (Reset) to second Job Control 
byte (displacement 57 in communications 
region). 


13 


Logical OR (Set) to second Job Control byte 
(displacement 57 in communications region). 


EOJ 


14 


Cancel job and go to Job Control for end "of 
job step. 


15 


Same as SVC except ignored if CHANQ table 
is full. 


STXIT (PC) 


•16 


Provides supervisor with linkage to user's PC 
routine for program check interrupts. 


EXIT (PC) 


*17 


Return from user's PC routine. 


STXIT (IT) 


*18 

■ 


Provides Supervisor with linkage to user's IT 
routine for interval timer interrupts . 


EXIT (IT) 


•19 


Return from user's IT routine. 


STXIT (OC) 


+ 20 


Provides Supervisor with linkage to user's OC 
routine for external or attention interrupts 
(operator communications). 


EXIT (OC) 


*21 


Return from user's OC routine. 


*22 


The first SVC 22 seizes the system for the 
issuing program by disabling multiprogram 
operation. The second SVC 22 releases the 
system (enables multiprogram operation). 


*23 


Load phase header. Phase load address is 
stored at user's address. 


*24 


Provide Supervisor with linkage to user's 
TECB and set timer interval. 


*25 


Issues HALT I/O on a teleprocessing device. 


♦26 


Validate address limits. 



* _ 



= optional 
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■Reset to zeros after PL 



16 

Comm 
Region 
Address 



50 

System 

Timer 



18 

External 
Old 
PSW 



20 
SVC 
Old 
PSW 



54 

System 
Time of 
Day 



28 

Program 
Check Old 
PSW 



58 
External 

New 
PSW 



30 

Machine 
Check Old 
PSW 



60 
SVC 
New 
PSW 



■^15 



38 
I/O 
Old 
PSW 



68 

Program 
Check New 
PSW 



40 
CSW 



48 
CAW 



70 

Machine 
Check New 
PSW 



4C 

BGJob 
Dura- 
tion 



78 
I/O 
New 
PSW 



80 Diagnostic Scan -Out Area — Model Dependent 



SUPERVISOR NUCLEUS 



General Cancel Routine 



General Exit Routine 



Communications Region 



Entry Register Area 



General Entry Routine 



Execute Channel Program (EXCP) 



I/O Interrupt 



Unit Check 



Fetch 



Other Interrupts 



Option Routines 



SVC Routines 



Resident Device Error Recovery 



Supervisor Constants 



SVC Interrupt Table 



Logical Transient Save Area 



All Bound 
PIB 



FOCL 



BG 
PIB 



F2 
PIB 



Fl 
PIB 



Attention 
PIB 



PUB TABLE 



TEB 



FICL 



Quieece 
PIB 



FAVP 



NICL 



Supervisor 
PIB 



Channel 
Queue 



JIB TABLE 



LUB TABLE 



PATCH AREA 



LOGICAL TRANSIENT AREA (B -TRANSIENTS) 

$$B 



PHYSICAL TRANSIENT AREA (A -TRANSIENTS) 

$$A 



BG 

Program 
Save Area 



PROBLEM PROGRAM AREA 



>Low 
Core 



^1 



^Nucleus 
Code 



I/O Tables 
> and 
Information 
Blocks 



) 



Logical 

and 
'Physical 
Transients 
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COMREG 

Displacement 
hexadecimal 

Displacement 
decimal 






8 
8 


6A 
10 


OC 
12 


Note: Displacement valuet illustrated can be used to access the listing 
and/or the key that follows the figure. The key offers more 
detailed information about each area when necessary. 

17 18 20 24 28 2C 
23 24 32 36 40 44 


2E 
46 


30 
48 


34 
52 


35 
53 


Date 


Addr 

of 

PPBEG 


Addr 

of 

EOSSP 


Problem 
Program 
Use 


UPSI 
Byte 


Job Name 


Highest 
Storage 
Address 


End Address 
of Last Phase 
Fetched or 
Loaded 


End Address 
of Longest 
Phase Fetched 
or Loaded 


Lbl 

Area 

Lng 


P1K 


End of 

Storage 

Address 


Confg 
Byte 


Date 
Conv 


xxxxxxxx 


XX 


XX 


xxxxxxxxxxx 


X 


xxxxxxxx 


xxxx 


XXXX 


XXXX 


XX 


XX 


XXXX 


X 


X 


Displacement 
hexadecimal 

Displacement 
decimal 


36 
54 


37 
55 


38 
56 


39 
57 


3A 
58 


38 
59 


•— •— ' —y ■■ 

3C 3E 

60 62 


40 
64 


42 
66 


44 
68 


46 
70 


48 
72 


4A 

74 


4C 
76 


4E 
78 


4F 
79 


Standard 
Options 

XX 


Job 

Control 

Byte 

X 


Linkage 
Control 
Byte 

X 


Language 
Translator 
Control 
Byte 

X 


Job 

Duration 
Indicator 
Byte 

X 


Disk 
Address 
of Labels 

XX 


Addr 

of 

FOCL 

XX 


Addr 

of 

PUB 

XX 


Addr 

of 

FAVP 

XX 


Addr 

of 

JIB 

XX 


Addr 

of 

TEB 

XX 


Addr 

of 

FICL 

XX 


Addr 

of 

NICL 

XX 


Addr 

of 

LUB 

XX 


Line 

Count for 
SYSLST 

X 


System Date 
xxxxxxxxx 


._.... 






Job Control Switches 


Displacement 
hexadecimal 

Displacement 
decimal 


58 
88 


59 
89 


5A 
90 


5C 
92 


5E 
94 


60 
96 


62 
98 


64 
100 


66 
102 


68 
104 


6A 
106 


6C 
108 


6E 
110 


Reserved 


LIOCS 
Byte 


PIB 

Table 

Addr 


ID 

Number of 
Last 
Checkpoint 


Lng. of LUB 
ID Queue 
No. of Channel 
Queue Entries 


Address of 
Disk I/O 
Position Data 


4'jdress of 
Channel 
Scheduler 
Error Block 


Address of 
PC Option 
Table -" 8 


Address of 
IT Option 
Table -8 
*IT Support 
Key 


Address of 
OC Option 
Table - 8 


Key to 

Program 
with 
Timer 
Support 


Address of 

theLUBID 

Queue 


Logical 

Transient 

Key 


X 


X 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 



|~5] MM/DD/YY or DD/MM/YY obtained from the Job control date statement. 
Format controlled by COMREG +53 (date convention byte) bit 0. 

QQ Address of the problem program label area. (End of transient area +1). 

(Toj Address of the beginning of the problem program area . Y (EOSSP) = Y 
(PPBEG)-if the storage protection option has not been selected. Y 
(EOSSP) equals the first main storage location with a storage protection 
key of 1, if storage protection is supported. 

|T2) User area 

User program switch indicator. 



[24] Job name set by the job control program from information found in the Job 
statement. 

Address of the uppermost byte of the problem program area as deter- 
mined by the IPL program, (Clear storage routine determines the 
address, ENDRT routine of $$A$I PL2 stores it.) 

Address of the uppermost byte of the last phase of the problem program 
fetched or loaded. The initial value (as shown) is overlaid by the first 
fetch or load to the problem program area. 

Address of the uppermost byte of the longest phase of the problem pro- 
gram fetched or loaded. The initial value is overlaid by the first fetch 
or load to the problem program area. 

44) Length of the problem program label area. 



4c) Program interrupt Key: Value is equal to the displacement from the 

start of the PIB table to me PIB For the Task. 
First Byte - always zero 

Second Byte - Contains the key of the program that was last enabled 
for interrupts. (When an interrupt occurs, the PIK 
indicates to the supervisor which program was 
interrupted.) 



Task 


PIK Value 


All Bound 


X'00' 


BG 


X'10" 


*F2 


X'20' 


*F1 


X'30' 


Attn fttn 


X'40' 


Quiesce I/O 


X'50' 


Supervisor 


X'60' 



*These tasks do not exist in a batch- job-only system. 

|4B] Logical end of main storage address 

Configuration Byte (Values set at supervisor generation time.) 

Bit 0: 1 = Storage protect 

= No storage protect 

1 : 1 = Decimal feature 
- No decimal feature 

2: 1 = Floating point feature 
= No floating point feature 

3: Reserved 

4: 1 - Timer feature 
Q = No timer feature 

5, 1 = Channel switching device 
= No channel switching device 

6; 1 = Burst mode on multiplex channel support 
= No burst mode on multiplex support 

7: 1 = 7-track SYSRES 

= No 7-track SYSRES 

— — ■ — — — — . »*— »^— ■ - — — — ^-^ ' .I. 1 ' ■ — .i m iii 
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Date Convention Byte 
Bit 



1 



5-7 



(Set at generation time by STDJC) 



1 = DDMMYVJJ 

MMDDYYJJ 

1 = Multiprogramming environment 

= Batch job environment 

1 = DASD file protect supported 

= No file protect support for DASD 

1 = DASD SYSIN-SYSOUT 

= No DASD SYSIN-SYSOUT 

1 = RTAM = YES 
= RTAM = NO 
Reserved 



H3 



This byte contains the standard language translator I/O options (set by 
the STDJC macro). 



Bit 0: DECK option 
1: LIST option 

2: LISTX option 

3: SYM option 

4: XREF option 

5: ERRS option 

6: CHAR SET option 

7: Reserved 



= yes, output object modules on SYSPCH 
= yes, output source module listings 

and diagnostics on SYSLST. 
= yes, output hexadecimal object module 

listings on SYSLST (compilers only). 
= yes, output symbol tables on SYSLST/ 

SYSPCH 
= yes, output symbolic cross reference 

list on SYSLST 
= yes, output diagnostics on SYSLST 

(compilers only) . 
= 48, input on SYSIPT is 48 or 60 

character set 



This byte contains the standard supervisor options for abnormal EOJ and 
control statement display. 



Bit 0: Not used 

lr DUMP option 

2: Not used 

3: LOG option 

4-6: Not used 

7: Reserved 



1 = yes , dump registers and storage on 
SYSLST 

1 = yes , list all control statements on 
SYSLST 



[56| Job control byte (JBCSWO) 



Bit 



0: 
1: 



2: 



3: 



4: 



5: 



Reserved 

1 s Return to caller on LIOCS disk open failure 

= Do not return to caller on LIOCS disk open failure 

1 = Job control input from SYSRDR 

= Job control input from SYSLOG 

1 = Job control output on SYSLOG 

= Job control output not on SYSLOG 

1 = Cancel job 

= Do not cancel job 

1 = Pause at end -of -job step 

= No pause at end-of-job step 
6: 1 = SYSLOG is not a 1052 

= SYSLOG is a 1052 
7: 1 = SYSLOG is assigned to the same device as SYSLST 

= SYSLOG is not assigned to the same device as SYSLST 

Job control byte (JBCSWl) 

Bit 0: 1 ■ SYSLNK open for output 

= SYSLNK not open for output 
Reserved 

1 = Allow EXEC 

= Suppress EXEC 

1 = Catalog linkage editor output 

= Do not catalog linkage editor output 

1 = Supervisor has been updated 

= Supervisor has not been updated 

1 = Executing in AUTOTEST mode 

= Not executing in AUTOTEST mode 

1 = Ignore attention interrupt on 1052 

= Do not ignore 1052 attention interrupt 

1 = Fetch MAIN EOJ at end of job to update system directory 
= Do not fetch MAIN EOJ at end of job for update 



1: 
2: 

3: 

4: 

5: 

6: 

7: 



{§[] Job control byte (JBCSW2) called the language processor control byte. 

This Is a set of switches used to specify nonstandard language translator 
options. The switches within the byte are controlled by job control OP- 
TION statements and when set to 1, override standard options. The 
format of this byte is identical to the standard option byte (displacement 
54). 

H2J Job control byte (JBCSW3) 

Bit 0: 1 = Within a job condidon 

= Outside a job condition 
1:1 = Dump on an abnormal end-of-job condidon 

= No dump on abnormal (0/ 
2: Reserved 
3: 1 = Job control output on SYSLST 

* Output not on SYSLST 
4: 1 « Job is being run out of sequence with a temporary assign- 
ment for SYSRDR 

= Condidons for 1 setting not met 
5: 1 = No OPEN 

- Initial entry to OPEN 
6: 1 = OPEN monitor entry is from the DTFCP OPEN phase 

= Condidons for a 1 setting not met 
7: Reserved 

[60 [ Binary disk address of the volume label area 

As illustrated 



m\m 



|78j Set to the value nn specified in the LINES * nn parameter of the STDJG 
macro. 

[79] The format of the system date contained within this field is determined 
by the 1PL program from information supplied in the date convention 
byte (displacement 53). Bytes 85 - 87 contain the day count. 

[88*1 Reserved 

[89] Byte reserved for use by LIOCS. Transient dump programs insert a key 
to indicate to the LIOCS end-of-volume roudne, $$BCMT07, that it was 
called by a B-transient. 

{$0J Address of the program information block (PIB) table. 

[92| ID number of the last checkpoint 

4} Length of the LUB ID queue (in bytes). This equals the number of chan- 
nel queue entries. It can also be used to access the REQUID queue. 

Address of disk I/O posidon data. This is the starting address of the 
disk information block (DIB) table. 

l98| Address of the beginning of the error recovery block. The error re- 
covery block contains addresses of error recovery exits, error recovery 
queue information that can be used by physical transient routines, and 
defines storage for the error queues entries. 



1100)^ )1041 As illustrated 

t ~ * w ' ' 

|J06| Key of the program (BG, F2, or Fl) that has timer support. 
|108| As illustrated 

lliol Logical transient Key (LTK) contains the same value as the PI K (dis- 
placement 46) when the logical transient is requested. When the tran- 
sient area is not in use, LTK is equal to zero. The SVC 2 routine sets 
the LTK. The SVC 11 routine resets the LTK. 



Physical IOCS 



Supervisor Core 



Problem Program Core 



Determine Channel 
Place Request in Queue 

If Channel/Unit 

Busy Return 
Issue START I/O 

Y Return ■ 



Started 




Wait for 
_ Interrupt 
I/O Interrupt 

Post Status to CCB 
M achine Error 

Nn Yes 

VAbort 



r E 

JUtil— 



EXCP 
-* SVC o 

* DC *CCB Address' 



\ Process Routine 



User Error 
Routine 



es 



Abort 



No 

'^ Systems ^, 
Error Recovery 



, Retry 



Continue 
I 



i/o psw C 

cswi — 




^D9LjL 



Status 
Bite 



CAW 



Address 
ofCCW List 



r- 



WAIT 



No-Channel End 
Yes 

Test Unrecoverable Error 
/Bit in CCB (Byte 2, Bit 2) 

' ® -rRetry 



f 

q^ On— User Error 
r Recovery and 

Continu 



Retry Routine— *> Abort 



CCB 



Residual 
Count 



Trans 
Bytes 



Status 
Bytes 



Address 

of 
CCW 
List 



Address 

of 
Last CCW 
Executed 



CCW 



CCWl 




CCW2 





Record Retrieval Using Physical IOCS 
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PUB & LUB TABLE 



F1CLST 



NICLST 



OB 


OA 


05 


05 



SYS BG F2 Fl 



PUB TABLE 



pos 


CHAN 
CLASS 


UNIT 


QUE 
PTR 


TEB 
PTR 


DEV 
TYPE 


MODE 


CHAN 
SCHED 
FlAC 


"Job 

CTL 
FLAC 


00 


00 


oc 


05 


00 


11 


00 


80 


F9 


01 


00 


OD 


FF 


00 


21 


00 


00 


FA 


02 


00 


OE 


03 


00 


40 


00 


84 


FA 


03 


00 


IF 


FF 


00 


00 


00 


00 


F8 


04 


01 


80 


FF 


00 


50 


C3 


00 


C4 


05 


01 


81 


02 


Oi 


50 


C3 


00 


C4 


06 


01 


82 


FF 


02 


50 


C3 


00 


C2 


07 


01 


83 


FF 


03 


50 


C3 


00 


CO 


08 


01 


84 


FF 


04 


50 


C3 


00 


GO 


09 


01 


90 


04 


00 


60 


00 


80 


FD 


10 


01 


91 


FF 


00 


60 


00 


W 


F8 


11 


FF 


00 


00 


00 


00 


00 


00 


00 




FF 

















LUB TABLE 




SYS 



RDR 



IPT 



PCH 



LST 



LOG 



LNK 



RES 



SLB 



RLB 



USE 



FG1 



000 



001 



002 



003 



004 



005 



006 



007 



008 



009 



000 



001 



002 



003 



004 



000 



001 



002 



003 



004 



POS 



00 



01 



02 



03 



04 



05 



06 



07 



08 



09 



OA 



OB 



OC 



OD 



OE 



OF 



10 



11 



12 



13 



14 



15 



16 



17 



18 



19 



1A 



IB 



1C 



ID 



IE 



PUB 
PTR 



FF 



FF 



FF 



pp 



03 



09 



09 



FF 



FF 



FF 



FF 



09 



FLG 



JIB 
PTR 



04 



05 



09 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



00 



FF 



FF 



09 



FF 



06 



01 



02 



FF 



FF 



FF 



FF 



FF 



FF 



00 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



FF 



01 



FF 



FF 



FF 



FF 



FF 



FF=UA 
FE=IGN 






< 



O 
CO 



< 



M 



< 



fc 
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CHAN. SCHED. FLAG 
2 3 4 



DEV 
BUSY 


SWITCH 
ABLE 


EOF 

SYSRDR 

ORIPT 


I/O ERR 
QUEUED 

FOR 
RETRY 


OPER 
INTV 
REQ 


DEV 
END 
POST 


BURST 
DEV ON 
MAX 


7TRK 
TAPE 



JOB CTL FLAG 






1 


2 


3 


4 


5 


6 


7 




MAD] 


j 






ASSGN 
TO 
BG 


ASSGN 
TO 
Fl 


ASSGN 
TO 
F2 




FOR 
TAP 


E 







ALL ONE'S FOR NON-TAPE 
ALL ZERO'S FOR DEV DOWN 



ZERO IF DEV UNASSIGNED 
OR SHARED 



FLPTR 



CHANQ 



00 



FAVP 



02 



POS 


CHAIN 
PTR 


CCB ADDR 


00 


FF 


00 


4B 


58 


01 


FF 


00 


64 


90 


02 


FF 


00 


21 


IE 


03 


01 


00 


64 


70 


04 


FF 


00 


4B 


58 


05 


FF 


00 


49 


98 

■i.. ■ 



JIB TABLE 



POS 


STORED 
STD ALT 
ASSGN'S 
XTENT 
INFO 


CON- 
TENT 


OWNER 


CHAIN 
PTR 


00 


BE 


C6 


2 


8 


FF 


01 


BE 


C6 


2 


8 


FF 


02 


00 


00 








03 


03 


00 


00 








04 


04 


00 


00 








05 


05 


00 


i 

00 








06 


06 


00 


00 








FF 



STORED 
STD 



ALT 
ASSGN 



2311 
XTENT 



2321 
XTENT 



SHARED 
ASSGN 



BG 



LUBID REQID 




Cti6iJE 
LUB 
PTfl 


CHQUE 
LIST 




19 


F 


F 




ID 


3 







0D 


1 







ID 


3 







19 


2 







16 


2 







/ 


\ 


STOR K 


:ey 


USE: 






FF=UNUSED 
60=SUPVR 
61=SUP CCB 
FOR SYSLOG 
62=FCH CCB 




Fl 



F2 



,1 2 3 4 

NOTE: TWO ENTRIES REQUIRED FOR 2321 JIB. 
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I/O TABLES CENERATED 



FICL 



NICL 



_10__ 
"System" 
Units 




~\ 



OA 
OB 
00 


J 

~1 


00 





n 

Program- 
mer Units 



fSYSRDR 
SYSIPT 
SYSPCH 
SYSLST 
SYSLOG 
Reserved 
SYSRES 
SYSLIB 
SYSRLB 
SYSUSE 
3YS000 
SYSOOI 
SYS002 
SYS003 
SYS004 
SYS005 
SYS006 
SYS007 
SYS008 
SYS009 
SYS010 



FOCL [ QQ Q5 Q8 



FF 



FF 



FF 



ff| 



PUB Table 



0(00) 
1 (01) 
2(02) 
3(03) 
4(04) 
5(05) 
6(06) 
7(07) 
8(08) 
9(09) 

10 (OA) 

11 (OB) 

12 (OC) 
13(00) 
14 (OE) 



Table (6-TEBs) 













TAPE 






ERROR 






_ „] .. — 




- 








BLOCKS 












00 30 



00 OC 



OOOE 



00 OP PUB for SYSPCH 



00 



P±4H 



02 81 



IF 



PUB fo r S YSLOG 

TUB fof SYSRES/SYS006 



81 



82 



QLU 



02 40 



02 50 



02 80 



PU B for 5YS010 
PUB for SYSRDR 



PUB for SYSLST 



Ql [501 PUB for SYiOjQS 

01 [80 1 PUB for SYSlFT /SYSpOO 

Pi 
01 



PUB for SYSOOI 



PUB for SYS002 



PUB for SYS005 



PUB for SYS007 



PUB for SYS009 



PUB for SYS004 



PUB for SYS003 



IB Table (15-JIBs) 














JOB 




INFORMATION 


^r= 






BLOCKS 













FAVP g 



FICL (First in Class): First byte always points to position of the LUB table (first system 

unit). 
Second byte always points to the first programmer unit. 

NICL (Number in Class ): First byte contains the number of system units. 

Second byte contains the number of programmer units. 

LUB Tabl e: The minimum LUB table has 15 entries; ten for system unite plus five for pro- 
grammer units SYS000-SYS004. Each assigned LUB points to a PUB in the PUB 
table with byte 1 . Byte 2 is a LUB flag or JIB pointer. 
See next page for LUB format. 



PUB Table : There must be a PUB for each I/O device on the system, 
physical characteristics of the I/O device it represents. 
See Page 81 for PUB format. 



A PUB contains the 



FOCL (First on Channel List): 



TEB (Tape Error Block): 



The FOCL is seven bytes long. Byte points to the first PUB 
(highest priority) on channel zero. Byte 1 points to the first 
PUB (highest priority) on channel one, etc. Hexadecimal FF 
indicates the associated channel is not supported. 



One TEB is generated for each tape unit at supervisor generation 
time if tape error statistics are required. 
See Page 82 for TEB format. 

JIB (Job Information Block ): Each 4-byte JIB contains the temporary or alternate assignments 

for a LUB. The LUB points to the associated JIB. 
See Page 82 for JIB format. 

FAVP (Fir st Avaj table Pointer): The FAVP is a I -byte pointer that points to the next available 

JIB (next JIB not in use). 
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LUB TABLE 



LUB TABLE 



SYSROR 
SYSLPT 
SYSPCH 
SYSLST 

SYSLOG 

RE- 
SERVED 

SYSRES 

SYSSLB 
SYSRLB 
SYSUSE 

SYSOOO 
SYS001 
SYS002 
SYS003 
SYS004 

SYS244 





•■- 


















MMg$\ 


. S-Ji*, 0n f 















































format of 



ByteO 


Byte 1 


PUB 
Pointer 


Flag 
Byte 



HEX 

00 = Points to first PUB 

01 = Points to second PUB 

02 = Points to third PUB 



FF = Null pointer, the 
LUB is unassigned 



I 



BitO 



If bit 7 ■= 1 , then: 

Bits 0-3 are standard LUB flags. 
ni ~ " : 1 = ignore (1GN) 

■ unassigned (UA) 
: 1 = standard assignement 
: 1 = standard unassigned (UA) 
: 1 = standard ignore (IGN) 
- 6 = unused 



1 
2 
3 
4 



If bit 7 = 0, then: 
The standard*' LUB has been stored in 
a JIB. Bits 0-6 contain the displace- 
ment (0, 4, 8, . , . ) within the JIB table 
where the LUB iB stored. 
Note that Bit 7 is always for a value 
ofO, 4,- 8, 12, ... 



NOTE: 

The number of entries in the LUB table is determined 
at supervisor generation time. The number of LUBS is 
equal to the number of system units plus the number of 
programmer units. The number of system units is 
always 10. The number of programmer units is specified 
in the IOTAB macro (PGR = n). 

IF: LUBS = number of LUBS in the LUB table. 

10 = number of system units (SYSRDR - 
SYSUSE). 

n = number of programmer units 
(SYSOOO - SYSXXX). 

THEN: LUBS = 10 + n 



PUB TABLE 



PUB-TABLE 



PUBORG 



Format of 




Channel 



PUBEND 
STOPPER 



Unit 



Cha nnel Queue Pointer 



TEB Pointer or Error Count 



Devi ce Type 

' Device Characteristic ^kxie 



Cha nnel Scheduler Flags 
Job Control Flags 



BYTE - Channel number. (Hex 0-7, 
FF = NULL) 

BYTE 1 - I/O device unit number. (HEX 
IF = 1052, HEX 80 = magnetic, 
tape unit . . .). 

BYTE 2 - HEX 0, 1 , 2, . . . points to the 
channel queue currently using 
this device. 

BYTE 3 - If device is a magnetic tape unit 
and TEBS are specified, this byte 
is a TEB pointer (HEX 1,2,3...). 

[f device is a magnetic tape 
unit but TEBS are not specified, 
this byte is an error counter. 

If device is not a magnetic tape 
unit, this byte is an error counter. 

BYTE 4 - See Figure 17 for device type 
codes. 

BYTE 5 - SS of the MODE = parameter in the 
DVCGEN macro for a tape unit. 



BYTE 6 

Bit 

1 

2 

3 

4 

5 
6 

7 

BYTE 7 

Bit 
0-4 : 



I = Device busy 

1 = Switchable device 

1 = EOF for SYSRDR or SYSIPT 

1 = Error recovery (I/O being 
reexecuted) 

1 = DASD file protection required 

1 = Device end received 

1 = Burst device on MPX 

1 = 7- track tape unit 



standard MODE assignment for 
7 -track tape 
(all ones if not tape, 
all zeros if device is down). 

5 : device is assigned to a system 

unit (0 is UA). 

6 : device is assigned to a programmer 

unit {0 if UA). 

7 : unused (zeros if UA). 



NOTE: 

A null PUB is generated for each device 
to be supported by the supervisor. (See 
IOTAB macro in this section.) 

Standard physical unit assignments are 
made to the PUB table at supervisor generation 
time. PUBS are ordered by channel and 
priority within a channel. (See DVCGEN 
macro in this section.) 



TEB and JIB Tables 



TEB TABLE 



TEBTAB 



TEB 1 


TEB 2 


US 


TB8$ 


TEB 4 


TEB 5 


TEB 6 






1 


2 


3 


4 


5 



Byte 

- 

1 - 

2 - 



One TEB is generated for each magnetic 
tape unit if the CONFG macro contains the 
TEB = yea parameter. 

Job Control resets each TEB at normal 
or abnormal End -of -Job. A null or reset 
TEB contains HEX 'FF 0000000000'. 

A TEB is reference from byte 3 of a 
magnetic tape unit PUB. 



Error recovery retry count. 

Permanent read error count. 

Number of times the read error 
routine is entered. 

Number of times the write error 
routine is entered. 

Write skip (erase gap) count. 

Noise record count. 



JIB TABLE 



JIBTAB 



JIB 1 



JIB 2 



JIB 3: 



JIB 4 



JIB 15 



mm& 






1 


2 


3 



Byte 
- 



The number of JIBs generated is determined 
from the IOTAB macro JIB=rj parameter. 

JIB entries are referenced by LUBs to which 
temporary or alternate PUBs are assigned. 

JIB chains are built by Job Control when on 
ASSGN statement is processed. 

The byte FAVP contains a pointer to the next 
available JIB. 

The number of JIBs must be sufficient to hold 
all alternate and temporary assignments that are 
needed in a single job-step. 



Contains a stored standard PUB 
pointer from a temporarily re- 
assigned LUB. It can also con- 
tain an alternate PUB pointer. 

Contains HEX '00' or a stored 
standard LUB flag for a tem- 
porarily reassigned LUB. 

Present assignment LUB and JIB 
flags. 



Bits - 3 



Present assignment 
LUB flag 



4 - Unused 

5 - Stored standards JIB 

6 - Alternate JIB 

7 - Unused 

Chain field: Points to the next 
JIB in the chain, JIBs in a chain 
are not necessarily contiguous. 

Bits - 6 - Contain a HEX value 
ofO, 4, 8, ... 

7 - When on indicates the 
end of the chain 
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LUB Table 




1 
2 
3 
4 
5 

6 

7 



SYSLOG 



SYSRES 




FOCL 
Pointers: 
Points to 
the first 
device on 
channel 



PUB Table 



Pointer to 
PUB for 

logical 
device 



NOTE; It is assumed that SYSRES is on channel 2 and that 
the communication device SYSLOG is on channel 0. 



IPL Main Storage Map 
00000 



(Z>0024|CCW3 
0048 



PSW 



CCWI 



CCW2 



CCW4 CCWS 



Disk Address of 
IPL2 



$$A$1PL1 0000 
$$A$1PLA 



6,000 



12,228 



16,384 
{Note 3)1 



Program to clear 
storage($$A$IPL2) 
loads Supervisor, 
moves I/O tables 
to high storage, 
builds two device 
system, and sets 
storage protection 
keys 



SYSGEN I/O 
Tables 



[11, 200 



$$A$lPi 



I/O tables moved 
to high storage 
from Supervisor 
area 




Supervisor 
Constants 



Loaded by IPL2 



SYSGEN I/O 
Tables 



$IPLRT2 in load- 
ed into this area 
at the end of 
$$A$IPL2 



0000 



Super- 
visor 
Super- * 
visor 



SYSGEN I/Otablee 
moved back into 
Supervisor at the 
tea<loiilPLRTi_ 



6,000 v 



16,000 



Supervisor 
Constants 



Job control loaded 
into Probelm 
Program area at 
the end of 
$IPLRT2 



End of Storage 



End of Storage 

Note 1: Circled numbers represent sequence. 

Note 2: Storage addresses are tn decimal. 

Note 3: The I/O tables will be at the end of the Supervisor in I6K machine. 
In larger machines, they will be at decimal 16,384. 
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Clear Storage - Manually (Model 40) 

The following procedure for manually cleaning memory does not clear any of 
the general purpose or floating point registers : 

1. Set "rate switch" to "process". 

2. Press "system reset" key. 

3. Set "rate switch" to "single cycle". 

4. Set "diagnostic control" to "MS address". 

5. Set bit 3 of byte of the "address" bit switches in the down 
position. 

6. Flip the "store status" switch. This calls in a micro-program 
that sets all of memory to zeros. 

7. Insure that "Y3 Stat" is turned on. , 

8. Reset the "rate switch" back to "process". 

9. Hit "start". Nothing should appear in bytes and 1 of the 
"address" and "data" registers. 

10. Restore "diagnostic CTL switch" to "off. 



Address Compare (Address Stop) (Model 40) 
To stop the CPU at a predetermined location: 

1. Turn the "address compare" switch to "stop". 

2. Set the bits in the "address" bit switches for the desired address. 

3. Press the "start" key. 

The system will resume processing until an equal address comparision is 
made. The CPU then switches itself to the "stopped" state. 
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HARDWARE 



1. To Write Tape Mark From TAU C. E. Console 



a. Turn lower left corner switch to OFF-LINE. 

b. Address the tape drive by inserting pegs in the two rows under 
ADDRESS labeled 01234 and P567, with odd parity. The positions have 
the values 84218 and P421 respectively. The top set (0123), addresses 
the ten's position and the lower set (4567) the units' position of the drive 
address. The P is used for parity when required. 



Example 1 Address for Drive '81' 
















Example 2 Address for Drive '83' 
















c. Coding for TAPE MARK requires pegs in 34567 STOP of the first 
COMMAND row. 

d. Peg INTE either A or fl in lower right corner. 

e. Set toggle switch on SINGLE and INTERFACE on AUTO. 

f. PreBs STOP on console to remove from SYSTEM state. 

g. Press MACHINE RESET, CHK RESET and START to write the tape 
mark. 

h. Restore by returning left corner switch to ON- LINE. 
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Catalog of Programs for IBM System/360 



360 O OO XXX 



1 2 3 

System Number, Qasification Code, Sequence Number 



1 , System Number 

360T Model 20 

360U Model 20 Tape 

360P BPS 

360B BOS 

360M TOS 

360N DOS 

360S OS 

360F Model 44 

360C Emulater 

360A Type II (Last character of sequence Number is x) 

360D Type III (Format 2, 3 . . . xx. x. xxx) 

2. Programming System Type I 

AS Assembler 

CB,CO COBOL 

CL Control program 

CQ Communications Input/Output 

CV Conversion 

IX) Documentor 

DM Data management 

DN Diagnostic 

ED Editor 

EU Emulator program 

FO Fortran 

IO Input/Output 

LM Library Material 

LD Loader 

MI Miscellaneous 

OS Operating system 

PL PL/I 

PT Autotest 

RC Remote computing 

RG RPG 

SI Simulator 

SM Sort/Merge 

SV Supervisor 

UT Utility 

Programming Application Type II 

Industry -Oriented Programs 

DP Publishing 

DR Retail 

DW Wholesale 

DX Other 



Finance 

FB Banking 

FF Finances Companies 

FI Brokerage and Investment 

FX Other 



Federal Government 

GF Government, Federial 

_ ftQ - 



Insurance 



IB Blue Cross and Shield 

IF Fire and Casualty 

IL Life 

IX Other 



Manufacturing 

MA Aerospace 

MD Drug, Food , Chemical Products 

ME Electrical and Machinery 

MF Fabrication and Primary Metals 

MP Petroleum and Industrial Chemicals 

MR Transportation Equipment 

MT Textiles and Paper 

MX Other 



Services 

SC Communication 

ST Transportation 

SU Utilities 

SX Other 



Universities and Government 

UC Colleges and Universities 

UG Government, State and Local 

UH Hospital and Medical 

US Secondary Schools 

UX Other 



Industry-Independent Programs 



Cross Industry Group 

CA Statistical Applications 

CC Process Control 

CM Mathematical Applications 

CN Numerical Control Applications 

CO Operations Research 

CP Critical Path Scheduling 

CR Information Retrieval 

CS Simulators 

CX Other 



Engineering 

EC Civil Engineering 

EE Electrical Engineering 

EH Chemical Engineering 

EM Mechanical Engineering 

EN Nuclear Codes 

EO Optics 

EX Other 



Exploratory 

XP Mathematics and Applications 



TOS/360 


Assembler 


36OM-AS-406 


TOS/360 


COBOL 


360M-CB-402 


TOS/360 


System control 


360M-CL-405 


TOS/360 


FORTRAN IV 


360M-FO-409 


TOS/360 


IOCS 


360M-IO-404 


TOS/360 


Autotest 


360M-PT-407 


TOS/360 


RPG 


360M-RG-408 


TOS/360 


SORT/Merge 


360M-SM-400 


TOS/360 


Utility Programs 


360M-UT-403 ~ 


DOS/360 


Assembler -Basic modules 


360N-AS-465 


DOS/360 


COBOL 


360N-CB-452 


DOS/360 


COBOL DASD macros 


360N-CB-468 


DOS/360 


Sys. cont. &Basic IOCS 


360N-CL-453 


DOS/360 


BTAM 


36CN-CQ-469 


DOS/360 


FORTRAN IV 


360N-FO-451 


DOS/360 


Direct Access method 


360N-IO-454 


DOS/360 


Consecutive Disk IOCS 


360N-IO-455 


DOS/360 


Consecutive Tape IOCS 


360N-IO-456 


DOS/360 


ISFMS 


360N-IO-457 


DOS/360 


Consecutive P. T. IOCS 


360N-IO-458 


DOS/360 


Compilar I/O modules 


360N -10-476 


DOS/360 


RPG 


360N-RG-460 


DOS/360 


SORT/MERGE -Tape 


360N-SM-400 


DOS/360 


SORT/MERGE-Disk/Tape 


360N-SM-450 


DOS/360 


Supervisor 6K 


360N-SU-474 


DOS/360 


Supervisor 8K 


360N-SU-475 


DOS/360 


GROUP 1 utilities 


360N-UT-461 


DOS/360 


GROUP 2 utilities 


360N-UT-462 


DOS/360 


GROUP 3 utilities 


360N -UT-463 


DOS/360 


MPS utility macros 


360N-UT-471 _i 
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-kkkk kkki^lkkkk ****|2**** ****|3**** kkkkfakkki? kkkk 



I// DLAB 



FILE 



file name 44 characters 



^kickk kkk~M6kk*kk kkk*fyjkk 

< format id 

NAMEJXXXXXX 1 , 



'r code! JTZ^TT^ 

"^ ij : ^ '--vol. serial 



XXXX^YYDDD , YYDDD , f SYSTE 






->■ — ■ 



% 



CODE 



vol.seq.no.--i "creation date *-j expiration date 

// XTENT lx,X J00CCCJ0HH,000CCC J 0HH, ! XXXXXX f ,SYSxx x 






lower 
J [extent seq. 
Ino. 0-255 



upper 



f 



volume! 
seriaL no 



ftype l:data area, 21: overflow area 

1 4:index area, 128:data area(split cylinder) 



// TPLAB 



•Xm mji* «A**J* «J*a +X* +J<+ mj^ 

7\ 7\ *C7C s\ *\ *\ sC 



-17 characters 



file serial no. 



no . 



', rSD: sequential 
i assumed value 
HDA: direct 
ISC: ISF(1 
VISE: ISF(o 



j vol . seq . no . 



! FILE IDENTIFIERXXXXXXxxxxXXXXbbbbbbbYYDDDbYYDDD ! 



j—* 



access 
oad & create 
ther than 
load & create 



creation date 



!~fiie seq.no. 



Lexpiration date 








INDEX 






PAGE 




PAGE 


ADDRESS STOP (M40) 


87 


LOG 


19,20,21 


ALLOC COMMAND 


19, 20 


LUB ADDRESS 


75 


ASSGN CARD 


18, 22 


LUB TABLE 


80,82,83,86 


ATTN COMMAND 


20 


MAP 


19, 20 


CANCEL COMMAND 


19, 21 


MSG 


20 


CAW FORMAT 


11 


MTC 


19, 24 


CARD TO DISK 


57 


NOLOG 


19 


CARD TO PRINTER/PUNCH 


57 


OPTION 


25, 68 


CARD TO TAPE 


58 


OUTAPE 


62 


CATAJ.OG 


32 


OUTCARD 


62 


CCB FORMAT 


13, 14 


OUTDISK 


62, 63 


CCW FORMAT 


11 


OUTLOG 


63 


CHANNEL COMMAND CODE 


12 


OUTPRT 


63 


CHANNEL COMMAND (DASD) 


U 


PARMANENT STORAGE 


4 


CHANQ 


81 - 82 


ASSIGNMENT 




CLEAR DISK 


60 


PAUSE 


19, 25 


CLEAR STORAGE (M40) 


87 


PHASE CARD FORMAT 


26 


CLOSE COMMAND 


18 


PHYSICAL IOCS (SAMPLE) 


26 


COMMAND TABLE 


11, 12 


PHYSICAL IOCS 


79 


COMMUNICATION REGION 


75 - 78 


PSW FORMAT 


5 


COMRG 


75 


PROGRAM INTERRUPTION 


6 


CONDENSE (SYSREC) 


33 


PROGRAM NAME 


89 - 91 


CONDITION CODE SETTING 


5 


PUB TABLE 


80,82,84 


COPY (LIBRARIAN) 


35- 37 


PUNCH (LIBRARIAN) 


34 - 35 


DATE COMMAND 


22 


PUB ADDRESS 


75 


DELETE 


32 


READ COMMAND 


21 


DISK LABLE 


69 


REALLOCATION 


33 


DISK SORT SAMPLE 


28 


RELSE COMMAND 


19, 21 


DISPLAY 


34 


RENAME 


32 


DISK TO CARD 


59 


REP FORMAT 


31 


DISK TO DISK 


60 


RESERT COMMAND 


19, 22 


DISK TO PRINTER 


60 


RLD FORMAT 


30 - 31 


DISK SORT 


67, 68 


RSTRT 


24 


DISK TO TAPE 


60 


SAMPLE 


26 


DLAB 


21, 23 


SENSE BYTE 


15 


DTFCD 


39 


SET COMMAND 


20 


DTFCN 


52 


SORT/MERGE 


67, 68 


DTFDA 


44 


SORT SAMPLE (DISK) 


28 


DTFDA ERRBYTE 


45 


SORT SAMPLE (TAPE) 


29 


DTFIS 


46, 47 


STANDARD INSTR. SET 


I - 2 


DTFIS ERRBYTE 


48 


STANDARD LABEL 


69 


DTFMT 


41 


START COMMAND 


20 


DTFPH 


52 


STORAGE MAP 


74, 86 


DTFPR 


40 


STOP COMMAND 


19 


DTFPT 


42 


SVC CODE 


73 


DTFSD 


43 


SYSREG SPACE 


71 


DTFSR 


49- 51 


TAPE LABEL 


69 


DUCUP 


19 


TAPE MARK (M40) 


88 


END CARD FORMAT 


31 


TAPE SORT 


67, 68 


ESD FORMAT 


30 


TAPE SORT SAMPLE 


29 


EXCP 


26 


TAPE TO CARD 


59 


EXEC 


21, 22 


TAPE TO DISK 


58 


FLOATING POINT INSTR. 


3 


TAPE TO PRINTER 


58 


FOREGRAND INITIATION 


17 


TAPE TO TAPE 


59 


(EXAMPL) 




TEP ADDRESS 


75 


HOLD COMMAND 


19, 21 


TEB TABLE 


85 


INCARD 


61 


TIMER 


20 


1ND1SK 


61 


TPLAB 


21, 24 


INLOG 


62 


TRANSIENT ROUTION 


72 


INSTRUCTION FORMAT 


7 - 10 


TXT FORMAT 


30 


INTAPE 


61 


UAN COMMAND 


19 


I/O MACRO 


53 


UCS COMMAND 


19 


I/O MIDULE NAME 


38 


UNA COMMAND 


21 


I/O TABLE 


81,82.86 


UPSI 


22 


JIB ADDRESS 


75 


UTILITY 


54 


JIB TABLE 


81, 82 


UTILITY JOB CARD 


54 


JOB 


22 


UTILITY LABEL CHECKING 


55 


JOB CONTROL COMMAND 


18 


UTILITY MACRO 


61 


JOB CONTROL SAMPLE 


26 


UTILITY MACRO (Rg. USAGE) 


65, 66 


JOB FLOW 


16 


UTILITY MODIFIER CARD 


56 


LABEL CYLINDER 


70-71 


UTILITY SAMPLE 


27 


LBLTYP 


24 


VOL 


21, 22 


LIBRARIAN 


32 


WRITE TAPE MARK 


88 


LISTIO 


19,21,24 


XTENT 


21, 23 



ffT D < 

iliiiL a 



M Programming Handbook 



BOS/BPS 



MM 



ft) 
o . 

3" 

c 
in 

> 



I 

M 

M 

>o 

I 

o 



International Business Machines Corporation 

Field Engineering Division 

112 East Post Road, White Plains, New York 



